pastEnd return value
authorClaus Gittinger <cg@exept.de>
Mon, 20 Nov 2006 12:35:27 +0100
changeset 10181 b84033d6da20
parent 10180 41e99d88d4bc
child 10182 bcb8791d473b
pastEnd return value
Stream.st
--- a/Stream.st	Wed Nov 15 10:18:51 2006 +0100
+++ b/Stream.st	Mon Nov 20 12:35:27 2006 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#Stream
@@ -195,6 +194,7 @@
     ^ ChunkSeparator
 ! !
 
+
 !Stream methodsFor:'accessing'!
 
 contents
@@ -444,7 +444,9 @@
     <resource: #obsolete>
 
     self obsoleteMethodWarning:'use #pastEndRead'.
-    self pastEndRead
+    ^ self pastEndRead
+
+    "Modified: / 18-11-2006 / 15:36:44 / cg"
 !
 
 pastEndRead
@@ -2775,7 +2777,7 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.152 2006-07-03 10:33:24 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.153 2006-11-20 11:35:27 cg Exp $'
 ! !
 
 Stream initialize!