decode-until-loop ( buf quot: ( -- char stop? ) -- string/f sep/f )

Vocabulary

io.encodings.private

Inputs

buf	an object
quot	a quotation with stack effect ( -- char stop? )

Outputs

string/f	an object
sep/f	an object

Definition

USING: kernel sequences ;

IN: io.encodings.private

: decode-until-loop
    ( buf quot: ( -- char stop? ) -- string/f sep/f )
    dup call
    [ nip [ "" like ] dip [ f like f ] unless* ]
    [ pick push decode-until-loop ] if ; inline recursive