--- a/RecursiveSeriesStream.st Tue Nov 19 14:30:10 2019 +0100
+++ b/RecursiveSeriesStream.st Tue Nov 19 14:30:18 2019 +0100
@@ -5,7 +5,7 @@
"{ NameSpace: Smalltalk }"
IteratorStream subclass:#RecursiveSeriesStream
- instanceVariableNames:'lastValue'
+ instanceVariableNames:'lastValue endValue'
classVariableNames:''
poolDictionaries:''
category:'Streams'
@@ -90,6 +90,16 @@
!RecursiveSeriesStream methodsFor:'accessing'!
+atEnd
+ ^ lastValue = endValue
+!
+
+endValue:something
+ "define a stop value"
+
+ endValue := something.
+!
+
iterator:aOneArgBlock startValue:startValue
iterator := aOneArgBlock.
lastValue := startValue.