#REFACTORING by stefan
authorStefan Vogel <sv@exept.de>
Fri, 17 Feb 2017 11:07:52 +0100
changeset 4127 eda0826e8b1d
parent 4126 319760fc7900
child 4128 abac292e8568
#REFACTORING by stefan class: ObjectFileHandle changed: #printOn: prefer nextPut: over nextPutAll: for single characters
ObjectFileHandle.st
--- a/ObjectFileHandle.st	Wed Feb 15 22:09:28 2017 +0100
+++ b/ObjectFileHandle.st	Fri Feb 17 11:07:52 2017 +0100
@@ -328,7 +328,7 @@
 
     aStream nextPutAll:self class name; nextPutAll:'(handle=<'.
     sysHandle1 printOn:aStream.
-    aStream nextPutAll:' '.
+    aStream space.
     sysHandle2 printOn:aStream.
     aStream nextPutAll:'> path='''.
     pathName printOn:aStream.
@@ -340,11 +340,12 @@
     self method printOn:aStream.
     aStream nextPutAll:'> classes=<'.
     self classes printOn:aStream.
-    aStream nextPutAll:'>'.
+    aStream nextPut:$>.
 
-    aStream nextPutAll:')'.
+    aStream nextPut:$).
 
-    "Modified: 25.4.1996 / 09:44:08 / cg"
+    "Modified: / 25-04-1996 / 09:44:08 / cg"
+    "Modified: / 17-02-2017 / 10:35:25 / stefan"
 ! !
 
 !ObjectFileHandle methodsFor:'queries'!