listener-main ( -- )

Vocabulary

listener

Inputs

None

Outputs

None

Definition

USING: io kernel namespaces system ;

IN: listener

: listener-main ( -- )
    "q" get [ vm-info print flush ] unless listener ;