7 lines
224 B
Forth
7 lines
224 B
Forth
|
Object Class new: Sequence(channel)
|
||
|
|
Sequence method: initialize(initialValue)
|
||
|
|
Channel newSize(1) := channel
|
||
|
|
@channel send(initialValue) drop ;
|
||
|
|
|
||
|
|
Sequence method: nextValue @channel receive dup 1 + @channel send drop ;
|