sequence-read-until ( seps stream -- seq sep/f )

Vocabulary

io.streams.sequence

Inputs

seps	an object
stream	an object

Outputs

seq	an object
sep/f	an object

Definition

USING: io.streams.sequence.private kernel sequences ;

IN: io.streams.sequence

: sequence-read-until ( seps stream -- seq sep/f )
    dup >sequence-stream< bounds-check?
    [ (sequence-read-until) ] [ 2drop f f ] if ; inline