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

Vocabulary

listener

Inputs

stream

an object

Outputs

quot/f

an object

Definition

IN: listener

GENERIC: stream-read-quot ( stream -- quot/f )

Methods

USING: arrays kernel listener ui.tools.listener ;

M: interactor stream-read-quot
    dup interactor-yield dup array? [
        over interactor-finish try-parse or?
        [ stream-read-quot ] unless
    ] [ nip ] if ;


USING: kernel listener ;

M: object stream-read-quot V{ } clone read-quot-loop ;