(call-listener) ( quot command listener -- )

Vocabulary

ui.tools.listener

Inputs

quot	an object
command	an object
listener	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: ui.tools.listener

: (call-listener) ( quot command listener -- )
    input>> dup interactor-busy?
    [ 3drop ]
    [ [ print-input drop ] [ nip interactor-continue ] 3bi ] if
    ;