Fix for String>>at:ifAbsent: and IE7

froucoux · Jun 1, 2012 · 9a0d97a · 9a0d97a
1 parent 5819794
commit 9a0d97a
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/js/Kernel-Collections.deploy.js b/js/Kernel-Collections.deploy.js
@@ -1921,7 +1921,7 @@ smalltalk.method({
 selector: "at:ifAbsent:",
 fn: function (anIndex, aBlock) {
 var self=this;
-return String(self)[anIndex - 1] || aBlock();
+return String(self).charAt(anIndex - 1) || aBlock();
 return self;}
 }),
 smalltalk.String);

diff --git a/js/Kernel-Collections.js b/js/Kernel-Collections.js
@@ -2713,10 +2713,10 @@ selector: "at:ifAbsent:",
 category: 'accessing',
 fn: function (anIndex, aBlock) {
 var self=this;
-return String(self)[anIndex - 1] || aBlock();
+return String(self).charAt(anIndex - 1) || aBlock();
 return self;},
 args: ["anIndex", "aBlock"],
-source: "at: anIndex ifAbsent: aBlock\x0a\x09<return String(self)[anIndex - 1] || aBlock()>",
+source: "at: anIndex ifAbsent: aBlock\x0a\x09<return String(self).charAt(anIndex - 1) || aBlock()>",
 messageSends: [],
 referencedClasses: []
 }),

diff --git a/st/Kernel-Collections.st b/st/Kernel-Collections.st
@@ -929,7 +929,7 @@ asciiValue
 !
 
 at: anIndex ifAbsent: aBlock
-	<return String(self)[anIndex - 1] || aBlock()>
+	<return String(self).charAt(anIndex - 1) || aBlock()>
 !
 
 escaped
-Original file line number
+Diff line change
@@ Expand Up / @@ -929,7 +929,7 @@ asciiValue @@
     !
     at: anIndex ifAbsent: aBlock
-    	<return String(self)[anIndex - 1] || aBlock()>
+    	<return String(self).charAt(anIndex - 1) || aBlock()>
     !
     escaped
@@ Expand Down @@