add-command ( command command-loop -- )

Vocabulary

command-loop

Inputs

command	an object
command-loop	an object

Outputs

None

Definition

IN: command-loop

GENERIC: add-command ( command command-loop -- )

Methods

USING: accessors assocs combinators command-loop kernel
sequences ;

M: command-loop add-command
    {
        [ commands>> push ]
        [
            [ [ name>> ] keep ] dip [ abbrevs>> ] bi@
            [ set-at ] curry with each
        ]
    } 2cleave ;