|  | @@ -3174,12 +3174,14 @@ protocol: 'accessing',
 | 
											
												
													
														|  |  fn: function (anIndex,aBlock){
 |  |  fn: function (anIndex,aBlock){
 | 
											
												
													
														|  |  var self=this;
 |  |  var self=this;
 | 
											
												
													
														|  |  return smalltalk.withContext(function($ctx1) { 
 |  |  return smalltalk.withContext(function($ctx1) { 
 | 
											
												
													
														|  | -return anIndex >= 1 && anIndex <= self.length
 |  | 
 | 
											
												
													
														|  | -		? self[anIndex - 1]
 |  | 
 | 
											
												
													
														|  | -		: aBlock._value();
 |  | 
 | 
											
												
													
														|  | 
 |  | +
 | 
											
												
													
														|  | 
 |  | +		return anIndex >= 1 && anIndex <= self.length
 | 
											
												
													
														|  | 
 |  | +			? self[anIndex - 1]
 | 
											
												
													
														|  | 
 |  | +			: aBlock._value()
 | 
											
												
													
														|  | 
 |  | +	;
 | 
											
												
													
														|  |  return self}, function($ctx1) {$ctx1.fill(self,"at:ifAbsent:",{anIndex:anIndex,aBlock:aBlock},smalltalk.Array)})},
 |  |  return self}, function($ctx1) {$ctx1.fill(self,"at:ifAbsent:",{anIndex:anIndex,aBlock:aBlock},smalltalk.Array)})},
 | 
											
												
													
														|  |  args: ["anIndex", "aBlock"],
 |  |  args: ["anIndex", "aBlock"],
 | 
											
												
													
														|  | -source: "at: anIndex ifAbsent: aBlock\x0a\x09<return anIndex >>= 1 && anIndex <= self.length\x0a\x09\x09? self[anIndex - 1]\x0a\x09\x09: aBlock._value()>",
 |  | 
 | 
											
												
													
														|  | 
 |  | +source: "at: anIndex ifAbsent: aBlock\x0a\x09<\x0a\x09\x09return anIndex >>= 1 && anIndex <= self.length\x0a\x09\x09\x09? self[anIndex - 1]\x0a\x09\x09\x09: aBlock._value()\x0a\x09>",
 | 
											
												
													
														|  |  messageSends: [],
 |  |  messageSends: [],
 | 
											
												
													
														|  |  referencedClasses: []
 |  |  referencedClasses: []
 | 
											
												
													
														|  |  }),
 |  |  }),
 | 
											
										
											
												
													
														|  | @@ -3192,12 +3194,14 @@ protocol: 'accessing',
 | 
											
												
													
														|  |  fn: function (anIndex,aBlock,anotherBlock){
 |  |  fn: function (anIndex,aBlock,anotherBlock){
 | 
											
												
													
														|  |  var self=this;
 |  |  var self=this;
 | 
											
												
													
														|  |  return smalltalk.withContext(function($ctx1) { 
 |  |  return smalltalk.withContext(function($ctx1) { 
 | 
											
												
													
														|  | -return anIndex >= 1 && anIndex <= self.length
 |  | 
 | 
											
												
													
														|  | -		? aBlock._value_(self[anIndex - 1])
 |  | 
 | 
											
												
													
														|  | -		: anotherBlock._value();
 |  | 
 | 
											
												
													
														|  | 
 |  | +
 | 
											
												
													
														|  | 
 |  | +		return anIndex >= 1 && anIndex <= self.length
 | 
											
												
													
														|  | 
 |  | +			? aBlock._value_(self[anIndex - 1])
 | 
											
												
													
														|  | 
 |  | +			: anotherBlock._value()
 | 
											
												
													
														|  | 
 |  | +	;
 | 
											
												
													
														|  |  return self}, function($ctx1) {$ctx1.fill(self,"at:ifPresent:ifAbsent:",{anIndex:anIndex,aBlock:aBlock,anotherBlock:anotherBlock},smalltalk.Array)})},
 |  |  return self}, function($ctx1) {$ctx1.fill(self,"at:ifPresent:ifAbsent:",{anIndex:anIndex,aBlock:aBlock,anotherBlock:anotherBlock},smalltalk.Array)})},
 | 
											
												
													
														|  |  args: ["anIndex", "aBlock", "anotherBlock"],
 |  |  args: ["anIndex", "aBlock", "anotherBlock"],
 | 
											
												
													
														|  | -source: "at: anIndex ifPresent: aBlock ifAbsent: anotherBlock\x0a\x09<return anIndex >>= 1 && anIndex <= self.length\x0a\x09\x09? aBlock._value_(self[anIndex - 1])\x0a\x09\x09: anotherBlock._value()>",
 |  | 
 | 
											
												
													
														|  | 
 |  | +source: "at: anIndex ifPresent: aBlock ifAbsent: anotherBlock\x0a\x09<\x0a\x09\x09return anIndex >>= 1 && anIndex <= self.length\x0a\x09\x09\x09? aBlock._value_(self[anIndex - 1])\x0a\x09\x09\x09: anotherBlock._value()\x0a\x09>",
 | 
											
												
													
														|  |  messageSends: [],
 |  |  messageSends: [],
 | 
											
												
													
														|  |  referencedClasses: []
 |  |  referencedClasses: []
 | 
											
												
													
														|  |  }),
 |  |  }),
 | 
											
										
											
												
													
														|  | @@ -3229,7 +3233,7 @@ return smalltalk.withContext(function($ctx1) {
 | 
											
												
													
														|  |  return self.map(function(each) {return aBlock._value_(each)});
 |  |  return self.map(function(each) {return aBlock._value_(each)});
 | 
											
												
													
														|  |  return self}, function($ctx1) {$ctx1.fill(self,"collect:",{aBlock:aBlock},smalltalk.Array)})},
 |  |  return self}, function($ctx1) {$ctx1.fill(self,"collect:",{aBlock:aBlock},smalltalk.Array)})},
 | 
											
												
													
														|  |  args: ["aBlock"],
 |  |  args: ["aBlock"],
 | 
											
												
													
														|  | -source: "collect: aBlock\x0a\x09\x22Optimized version\x22\x0a\x09<return self.map(function(each) {return aBlock._value_(each)})>",
 |  | 
 | 
											
												
													
														|  | 
 |  | +source: "collect: aBlock\x0a\x09\x22Optimized version\x22\x0a\x09\x0a\x09<return self.map(function(each) {return aBlock._value_(each)})>",
 | 
											
												
													
														|  |  messageSends: [],
 |  |  messageSends: [],
 | 
											
												
													
														|  |  referencedClasses: []
 |  |  referencedClasses: []
 | 
											
												
													
														|  |  }),
 |  |  }),
 | 
											
										
											
												
													
														|  | @@ -4230,10 +4234,10 @@ protocol: 'accessing',
 | 
											
												
													
														|  |  fn: function (anInteger){
 |  |  fn: function (anInteger){
 | 
											
												
													
														|  |  var self=this;
 |  |  var self=this;
 | 
											
												
													
														|  |  return smalltalk.withContext(function($ctx1) { 
 |  |  return smalltalk.withContext(function($ctx1) { 
 | 
											
												
													
														|  | - return self.charCodeAt(anInteger - 1) ;
 |  | 
 | 
											
												
													
														|  | 
 |  | +return self.charCodeAt(anInteger - 1);
 | 
											
												
													
														|  |  return self}, function($ctx1) {$ctx1.fill(self,"charCodeAt:",{anInteger:anInteger},smalltalk.String)})},
 |  |  return self}, function($ctx1) {$ctx1.fill(self,"charCodeAt:",{anInteger:anInteger},smalltalk.String)})},
 | 
											
												
													
														|  |  args: ["anInteger"],
 |  |  args: ["anInteger"],
 | 
											
												
													
														|  | -source: "charCodeAt: anInteger\x0a\x09< return self.charCodeAt(anInteger - 1) >",
 |  | 
 | 
											
												
													
														|  | 
 |  | +source: "charCodeAt: anInteger\x0a\x09<return self.charCodeAt(anInteger - 1)>",
 | 
											
												
													
														|  |  messageSends: [],
 |  |  messageSends: [],
 | 
											
												
													
														|  |  referencedClasses: []
 |  |  referencedClasses: []
 | 
											
												
													
														|  |  }),
 |  |  }),
 | 
											
										
											
												
													
														|  | @@ -4333,10 +4337,10 @@ protocol: 'testing',
 | 
											
												
													
														|  |  fn: function (subString){
 |  |  fn: function (subString){
 | 
											
												
													
														|  |  var self=this;
 |  |  var self=this;
 | 
											
												
													
														|  |  return smalltalk.withContext(function($ctx1) { 
 |  |  return smalltalk.withContext(function($ctx1) { 
 | 
											
												
													
														|  | - return self.indexOf(subString) != -1 ;
 |  | 
 | 
											
												
													
														|  | 
 |  | +return self.indexOf(subString) != -1;
 | 
											
												
													
														|  |  return self}, function($ctx1) {$ctx1.fill(self,"includesSubString:",{subString:subString},smalltalk.String)})},
 |  |  return self}, function($ctx1) {$ctx1.fill(self,"includesSubString:",{subString:subString},smalltalk.String)})},
 | 
											
												
													
														|  |  args: ["subString"],
 |  |  args: ["subString"],
 | 
											
												
													
														|  | -source: "includesSubString: subString\x0a\x09< return self.indexOf(subString) != -1 >",
 |  | 
 | 
											
												
													
														|  | 
 |  | +source: "includesSubString: subString\x0a\x09<return self.indexOf(subString) != -1>",
 | 
											
												
													
														|  |  messageSends: [],
 |  |  messageSends: [],
 | 
											
												
													
														|  |  referencedClasses: []
 |  |  referencedClasses: []
 | 
											
												
													
														|  |  }),
 |  |  }),
 | 
											
										
											
												
													
														|  | @@ -4855,7 +4859,7 @@ $1=_st(self._trimLeft_(separators))._trimRight_(separators);
 | 
											
												
													
														|  |  return $1;
 |  |  return $1;
 | 
											
												
													
														|  |  }, function($ctx1) {$ctx1.fill(self,"trimBoth:",{separators:separators},smalltalk.String)})},
 |  |  }, function($ctx1) {$ctx1.fill(self,"trimBoth:",{separators:separators},smalltalk.String)})},
 | 
											
												
													
														|  |  args: ["separators"],
 |  |  args: ["separators"],
 | 
											
												
													
														|  | -source: "trimBoth: separators\x0a\x0a\x09^ (self trimLeft: separators) trimRight: separators",
 |  | 
 | 
											
												
													
														|  | 
 |  | +source: "trimBoth: separators\x0a\x09^ (self trimLeft: separators) trimRight: separators",
 | 
											
												
													
														|  |  messageSends: ["trimRight:", "trimLeft:"],
 |  |  messageSends: ["trimRight:", "trimLeft:"],
 | 
											
												
													
														|  |  referencedClasses: []
 |  |  referencedClasses: []
 | 
											
												
													
														|  |  }),
 |  |  }),
 | 
											
										
											
												
													
														|  | @@ -4895,7 +4899,7 @@ $1=self._replaceRegexp_with_($2,"");
 | 
											
												
													
														|  |  return $1;
 |  |  return $1;
 | 
											
												
													
														|  |  }, function($ctx1) {$ctx1.fill(self,"trimLeft:",{separators:separators},smalltalk.String)})},
 |  |  }, function($ctx1) {$ctx1.fill(self,"trimLeft:",{separators:separators},smalltalk.String)})},
 | 
											
												
													
														|  |  args: ["separators"],
 |  |  args: ["separators"],
 | 
											
												
													
														|  | -source: "trimLeft: separators\x0a\x0a\x09^ self replaceRegexp: (RegularExpression fromString: '^[', separators, ']+' flag: 'g') with: ''",
 |  | 
 | 
											
												
													
														|  | 
 |  | +source: "trimLeft: separators\x0a\x09^ self replaceRegexp: (RegularExpression fromString: '^[', separators, ']+' flag: 'g') with: ''",
 | 
											
												
													
														|  |  messageSends: ["replaceRegexp:with:", "fromString:flag:", ","],
 |  |  messageSends: ["replaceRegexp:with:", "fromString:flag:", ","],
 | 
											
												
													
														|  |  referencedClasses: ["RegularExpression"]
 |  |  referencedClasses: ["RegularExpression"]
 | 
											
												
													
														|  |  }),
 |  |  }),
 | 
											
										
											
												
													
														|  | @@ -4935,7 +4939,7 @@ $1=self._replaceRegexp_with_($2,"");
 | 
											
												
													
														|  |  return $1;
 |  |  return $1;
 | 
											
												
													
														|  |  }, function($ctx1) {$ctx1.fill(self,"trimRight:",{separators:separators},smalltalk.String)})},
 |  |  }, function($ctx1) {$ctx1.fill(self,"trimRight:",{separators:separators},smalltalk.String)})},
 | 
											
												
													
														|  |  args: ["separators"],
 |  |  args: ["separators"],
 | 
											
												
													
														|  | -source: "trimRight: separators\x0a\x0a\x09^ self replaceRegexp: (RegularExpression fromString: '[', separators, ']+$' flag: 'g') with: ''",
 |  | 
 | 
											
												
													
														|  | 
 |  | +source: "trimRight: separators\x0a\x09^ self replaceRegexp: (RegularExpression fromString: '[', separators, ']+$' flag: 'g') with: ''",
 | 
											
												
													
														|  |  messageSends: ["replaceRegexp:with:", "fromString:flag:", ","],
 |  |  messageSends: ["replaceRegexp:with:", "fromString:flag:", ","],
 | 
											
												
													
														|  |  referencedClasses: ["RegularExpression"]
 |  |  referencedClasses: ["RegularExpression"]
 | 
											
												
													
														|  |  }),
 |  |  }),
 |