run-command-loop ( command-loop -- )

Vocabulary

command-loop

Inputs

command-loop

an object

Outputs

None

Definition

IN: command-loop

GENERIC: run-command-loop ( command-loop -- )

Methods

USING: accessors command-loop command-loop.private io kernel ;

M: command-loop run-command-loop
    dup intro>> [ print ] when* [
        dup prompt>> [ write bl flush ] when* readln
        [ over ?handle-command t ] [ f ] if*
    ] loop drop ;