PositionableStream.st
changeset 93 e31220cb391f
parent 88 81dacba7a63a
child 159 514c749165c3
--- 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."