*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 08 Apr 2010 13:57:17 +0200
changeset 12864 b22c567683a2
parent 12863 c947bd1da044
child 12865 fcf412fac69d
*** empty log message ***
ExternalBytes.st
--- a/ExternalBytes.st	Thu Apr 08 13:51:40 2010 +0200
+++ b/ExternalBytes.st	Thu Apr 08 13:57:17 2010 +0200
@@ -746,9 +746,7 @@
 instVarAt:index
     "redefined to suppress direct access to my address, which is a non-object"
 
-    index == 1 ifTrue:[
-	^ self address
-    ].
+    index == 1 ifTrue:[^ self address].
     ^ super instVarAt:index
 ! !
 
@@ -1281,11 +1279,11 @@
 !ExternalBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.77 2010-03-12 14:35:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.78 2010-04-08 11:57:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.77 2010-03-12 14:35:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.78 2010-04-08 11:57:17 cg Exp $'
 ! !
 
 ExternalBytes initialize!