Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
size == 0 implies isEmpty == true
authorClaus Gittinger <cg@exept.de>
Wed, 17 Feb 1999 21:08:37 +0100
changeset 3990 be7844e1e603
parent 3989 109b4e016f51
child 3991 7b53bc45bf91
size == 0 implies isEmpty == true
PosStream.st file | annotate | diff | comparison | revisions
PositionableStream.st file | annotate | diff | comparison | revisions 
--- a/PosStream.st	Mon Feb 15 15:46:48 1999 +0100
+++ b/PosStream.st	Wed Feb 17 21:08:37 1999 +0100
@@ -445,7 +445,7 @@
                     done := false.
                     [done] whileFalse:[
                         aString := self nextChunk.
-                        done := (aString size == 0) or:[aString isEmpty].
+                        done := (aString size == 0).
                     ]
                 ] ifFalse:[
                     rslt := rslt fileInFrom:self notifying:someone passChunk:passChunk
@@ -864,6 +864,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PosStream.st,v 1.70 1999-02-03 10:55:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PosStream.st,v 1.71 1999-02-17 20:08:37 cg Exp $'
 ! !
 PositionableStream initialize!
--- a/PositionableStream.st	Mon Feb 15 15:46:48 1999 +0100
+++ b/PositionableStream.st	Wed Feb 17 21:08:37 1999 +0100
@@ -445,7 +445,7 @@
                     done := false.
                     [done] whileFalse:[
                         aString := self nextChunk.
-                        done := (aString size == 0) or:[aString isEmpty].
+                        done := (aString size == 0).
                     ]
                 ] ifFalse:[
                     rslt := rslt fileInFrom:self notifying:someone passChunk:passChunk
@@ -864,6 +864,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.70 1999-02-03 10:55:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.71 1999-02-17 20:08:37 cg Exp $'
 ! !
 PositionableStream initialize!
hg/stx-libbasic