new-command-loop ( intro prompt class -- command-loop )

Vocabulary

command-loop

Inputs

intro	an object
prompt	an object
class	an object

Outputs

command-loop

an object

Definition

USING: accessors combinators command-loop.private kernel ;

IN: command-loop

: new-command-loop ( intro prompt class -- command-loop )
    new swap >>prompt swap >>intro V{ } clone >>commands
    V{ } clone >>abbrevs {
        [ <help-command> ]
        [ add-command ]
        [ <abbrevs-command> ]
        [ add-command ]
        [ <run-command> ]
        [ add-command ]
        [ ]
    } cleave ;