--- a/ConsStream.st Mon Nov 18 17:43:09 2019 +0100
+++ b/ConsStream.st Mon Nov 18 17:43:20 2019 +0100
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libbasic2' }"
+"{ NameSpace: Smalltalk }"
+
Stream subclass:#ConsStream
instanceVariableNames:'list'
classVariableNames:''
@@ -89,7 +91,9 @@
atEnd
^ list isNil
-!
+! !
+
+!ConsStream methodsFor:'stream protocol-reading'!
next
|rslt|
@@ -105,9 +109,10 @@
!ConsStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/ConsStream.st,v 1.4 2011-09-27 09:42:44 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/ConsStream.st,v 1.4 2011-09-27 09:42:44 cg Exp $'
+ ^ '$Header$'
! !
+