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

Vocabulary

io.private

Inputs

seps	an object
stream	an object

Outputs

seq	an object
sep/f	an object

Definition

USING: io kernel sequences ;

IN: io.private

: read-until-loop ( seps stream -- seq sep/f )
    [
        [ stream-read1 dup [ rot member? not ] [ nip f ] if* ]
        2curry [ ]
    ] [ stream-exemplar ] bi produce-as swap finalize-read-until
    ; inline