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.
*** empty log message ***
authorpenk
Fri, 06 Dec 2002 15:32:45 +0100
changeset 6922 b7cd10d26d99
parent 6921 6f21c707fbff
child 6923 6fff585a17cb
*** empty log message ***
PositionableStream.st file | annotate | diff | comparison | revisions 
--- a/PositionableStream.st	Fri Dec 06 15:31:23 2002 +0100
+++ b/PositionableStream.st	Fri Dec 06 15:32:45 2002 +0100
@@ -484,7 +484,7 @@
         ].
         aString size ~~ 0 ifTrue:[
             passChunk ifTrue:[
-                someone source:aString
+                someone notNil ifTrue:[someone source:aString]
             ].
             sawExcla ifFalse:[
                 rslt := Smalltalk::Compiler evaluate:aString notifying:someone.
@@ -1141,7 +1141,7 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.116 2002-12-06 14:31:23 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.117 2002-12-06 14:32:45 penk Exp $'
 ! !
 
 PositionableStream initialize!
hg/stx-libbasic