#REFACTORING by stefan
class: ObjectFileHandle
changed: #printOn:
prefer nextPut: over nextPutAll: for single characters
--- 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'!