#REFACTORING by stefan
authorStefan Vogel <sv@exept.de>
Fri, 17 Feb 2017 11:02:06 +0100
changeset 21483 582158f616ff
parent 21482 4a261f7b1174
child 21484 183245e23a14
#REFACTORING by stefan class: ByteArray changed: #storeOn: prefer nextPut: over nextPutAll: for single characters
ByteArray.st
--- a/ByteArray.st	Fri Feb 17 11:01:53 2017 +0100
+++ b/ByteArray.st	Fri Feb 17 11:02:06 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -2794,14 +2792,15 @@
 
     |cls|
 
-    ((cls := self class) == ByteArray or:[cls == ImmutableByteArray]) ifTrue:[
-	"/ care for subclasses
-	aStream nextPutAll:'#['.
-	self
-	    do:[:byte | byte storeOn:aStream]
-	    separatedBy:[aStream space].
-	aStream nextPutAll:']'.
-	^ self
+    cls := self class.
+    (cls == ByteArray or:[cls == ImmutableByteArray]) ifTrue:[
+        "/ care for subclasses
+        aStream nextPutAll:'#['.
+        self
+            do:[:byte | byte storeOn:aStream]
+            separatedBy:[aStream space].
+        aStream nextPut:$].
+        ^ self
     ].
     ^ super storeOn:aStream
 
@@ -2813,7 +2812,8 @@
      #[1 2 3 4 5] printString
     "
 
-    "Modified: 12.9.1997 / 22:11:33 / cg"
+    "Modified: / 12-09-1997 / 22:11:33 / cg"
+    "Modified: / 17-02-2017 / 10:50:37 / stefan"
 ! !
 
 !ByteArray methodsFor:'queries'!