class: ReadStream
authorStefan Vogel <sv@exept.de>
Tue, 04 Mar 2014 13:40:49 +0100
changeset 16198 b435afd3f29d
parent 16197 9e2f05c2fd42
child 16199 86aeff99ebb4
class: ReadStream changed: #next: (send #== instead of #=)
ReadStream.st
--- a/ReadStream.st	Tue Mar 04 13:38:08 2014 +0100
+++ b/ReadStream.st	Tue Mar 04 13:40:49 2014 +0100
@@ -56,6 +56,7 @@
 ! !
 
 
+
 !ReadStream methodsFor:'converting'!
 
 readStream
@@ -221,7 +222,7 @@
 
     |answer|
 
-    self contentsSpecies = collection class ifTrue:[
+    self contentsSpecies == collection class ifTrue:[
         ((position + count) > readLimit) ifFalse:[
             answer := collection copyFrom:position+1 to:position+count.
             position := position+count.
@@ -853,10 +854,10 @@
 !ReadStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.73 2013-12-02 19:06:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.74 2014-03-04 12:40:49 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.73 2013-12-02 19:06:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.74 2014-03-04 12:40:49 stefan Exp $'
 ! !