handle-command ( args command-loop -- )

Vocabulary

command-loop

Inputs

args	an object
command-loop	an object

Outputs

None

Definition

IN: command-loop

GENERIC: handle-command ( args command-loop -- )

Methods

USING: accessors ascii combinators command-loop io kernel
splitting ;

M: command-loop handle-command
    swap " " split1 swap >lower [ pick find-command ] keep swap
    [ nip quot>> ( args -- ) call-effect drop ]
    [ rot missing-command ] if* flush ;