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: accessors io.ports kernel ;

IN: io.ports.private

:: read-until-loop ( seps port accum -- sep/f )
    port wait-to-read
    [ f ] [
        seps port buffer>> accum append-buffer-until dup
        [ drop seps port accum read-until-loop ] unless
    ] if ; inline recursive