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

Vocabulary

io.streams.peek

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.peek

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