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

Vocabulary

io.streams.sequence.private

Inputs

seps	an object
stream	an object

Outputs

seq	an object
sep/f	an object

Definition

USING: accessors io.private kernel math ;

IN: io.streams.sequence.private

: (sequence-read-until) ( seps stream -- seq sep/f )
    [ find-separator ] keep
    [ [ (sequence-read-unsafe) ] read-into-new ]
    [ [ 1 + ] change-i drop ] [ stream-exemplar or ] tri swap ;
    inline