#QUALITY by exept
class: WriteStream
comment/format in: #next:put:
changed: #nextPut:
--- a/WriteStream.st Mon Aug 26 10:06:33 2019 +0200
+++ b/WriteStream.st Mon Aug 26 10:08:16 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -433,7 +435,7 @@
collection from:position + 1 to:final put:anObject.
position := position + count.
(position > readLimit) ifTrue:[readLimit := position].
- "/ ^ anObject -- return self
+ "/ ^ anObject -- no; return self
"
'' writeStream next:10 put:$*
@@ -483,7 +485,7 @@
__INST(readLimit) = __mkSmallInteger(pos);
}
__INST(position) = __mkSmallInteger(pos);
- RETURN ( anObject );
+ RETURN ( self );
}
} else if (cls == @global(ByteArray)) {
if (__isSmallInteger(anObject)
@@ -524,7 +526,6 @@
] ifFalse:[
WriteError raiseErrorString:'write beyond writeLimit'
].
- ^anObject
!
nextPutAll:aCollection