lazy lists accessors
parent
c7e7f4f8b4
commit
457dbc33d0
|
@ -356,7 +356,7 @@ M: lazy-io car ( lazy-io -- car )
|
||||||
nip
|
nip
|
||||||
] [
|
] [
|
||||||
drop dup stream>> over quot>> call
|
drop dup stream>> over quot>> call
|
||||||
swap dupd set-lazy-io-car
|
>>car
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
M: lazy-io cdr ( lazy-io -- cdr )
|
M: lazy-io cdr ( lazy-io -- cdr )
|
||||||
|
|
Loading…
Reference in New Issue