--- a/PositionableStream.st Fri Aug 05 02:55:07 1994 +0200
+++ b/PositionableStream.st Fri Aug 05 02:59:40 1994 +0200
@@ -20,6 +20,8 @@
PositionableStream comment:'
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
+
+$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.15 1994-08-05 00:59:23 claus Exp $
'!
!PositionableStream class methodsFor:'documentation'!
@@ -40,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.14 1994-06-02 16:21:20 claus Exp $
+$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.15 1994-08-05 00:59:23 claus Exp $
"
!
@@ -351,10 +353,16 @@
^ self fileInNotifying:self
!
+fileInNextChunk
+ "read next chunk, evaluate it and return the result"
+
+ ^ self fileInNextChunkNotifying:nil
+!
+
fileInNotifying:someone
"file in from the receiver, i.e. read chunks and evaluate them -
return the value of the last chunk.
- someone (which is usually some codeView) is notified of errors."
+ Someone (which is usually some codeView) is notified of errors."
|lastValue|
@@ -395,12 +403,6 @@
^ lastValue
!
-fileInNextChunk
- "read next chunk, evaluate it and return the result"
-
- ^ self fileInNextChunkNotifying:nil
-!
-
fileInNextChunkNotifying:someone
"read next chunk, evaluate it and return the result;
someone (which is usually some codeView) is notified of errors."