(read-until) ( stream seps buf -- stream seps buf sep/f )

Vocabulary

io.streams.limited.private

Inputs

stream	an object
seps	an object
buf	an object

Outputs

stream	an object
seps	an object
buf	an object
sep/f	an object

Definition

USING: io kernel sequences ;

IN: io.streams.limited.private

: (read-until) ( stream seps buf -- stream seps buf sep/f )
    3dup [ [ stream-read1 dup ] dip member-eq? ] dip swap
    [ drop ] [ over [ push (read-until) ] [ drop ] if ] if ;