read-quot-loop ( stream accum -- quot/f )

Vocabulary

listener

Inputs

stream	an object
accum	an object

Outputs

quot/f

an object

Definition

USING: io kernel sequences ;

IN: listener

: read-quot-loop ( stream accum -- quot/f )
    over stream-readln dup [
        over push dup read-quot-step dup
        [ 2nip ] [ drop read-quot-loop ] if
    ] [ 3drop f ] if ;