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 )
    [
        swap [ member? not ] curry
        [ [ stream-read1 dup ] curry ] dip [ [ f ] if* ] curry
        compose [ ]
    ] [ stream-exemplar ] bi produce-as swap finalize-read-until
    ; inline