read-until-loop ( handle seps accum -- accum ch )


Vocabulary
io.streams.c

Definition
USING: kernel sequences ;

IN: io.streams.c

: read-until-loop ( handle seps accum -- accum ch )
pick fgetc dup [
pick dupd member-eq?
[ [ 2drop ] 2dip ] [ suffix! read-until-loop ] if
] [ [ 2drop ] 2dip ] if ; inline recursive