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 continuations debugger io kernel
sequences ;

M: command-loop run-command-loop
    dup intro>> [ print ] when* [
        dup prompt>> [ write bl flush ] when* readln [
            [
                [ over handle-command ]
                [ "ERROR: " write print-error drop ] recover
            ] unless-empty t
        ] [ f ] if*
    ] loop drop ;