class: SmallInteger
authorClaus Gittinger <cg@exept.de>
Wed, 28 Nov 2012 13:49:35 +0100
changeset 14540 84fc4b759ad8
parent 14539 9cc7e1ad8b52
child 14541 4146a3585044
class: SmallInteger changed: #basicAt: return the value of the error-raise; just in case
SmallInteger.st
--- a/SmallInteger.st	Wed Nov 28 12:08:13 2012 +0100
+++ b/SmallInteger.st	Wed Nov 28 13:49:35 2012 +0100
@@ -2127,7 +2127,7 @@
     "catch indexed access - report an error
      defined here since basicAt: in Object ommits the SmallInteger check."
 
-    self notIndexed
+    ^ self notIndexed
 !
 
 basicAt:index put:anObject
@@ -4121,9 +4121,9 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.197 2012-11-04 15:06:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.198 2012-11-28 12:49:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.197 2012-11-04 15:06:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.198 2012-11-28 12:49:35 cg Exp $'
 ! !