read-quot-step ( lines -- quot/f )

Vocabulary

listener

Inputs

lines

an object

Outputs

quot/f

an object

Definition

USING: accessors continuations lexer ;

IN: listener

: read-quot-step ( lines -- quot/f )
    '[ _ parse-lines-interactive ] [ error>> unexpected-eof? ]
    ignore-error/f ;