read-until-loop ( seps port accum -- sep/f )

Vocabulary

io.ports.private

Inputs

seps	an object
port	an object
accum	an object

Outputs

sep/f

an object

Definition

USING: kernel sequences ;

IN: io.ports.private

: read-until-loop ( seps port accum -- sep/f )
    2over read-until-step over
    [ [ append! ] dip dup [ 3nip ] [ drop read-until-loop ] if ]
    [ 4nip ] if ; inline recursive