Handbook
Glossary
read-until-loop ( seps stream -- seq sep/f )
Vocabulary
io.private
Inputs
seps
an
object
stream
an
object
Outputs
seq
an
object
sep/f
an
object
Definition
USING:
io
kernel
sequences
;
IN:
io.private
:
read-until-loop
( seps stream -- seq sep/f )
[
[
stream-read1
dup
[
rot
member?
not
]
[
nip
f
]
if*
]
2curry
[
]
]
[
stream-exemplar
]
bi
produce-as
swap
finalize-read-until
;
inline