find-command ( name command-loop -- command )

Vocabulary

command-loop

Inputs

name	an object
command-loop	an object

Outputs

command

an object

Definition

IN: command-loop

GENERIC: find-command ( name command-loop -- command )

Methods

USING: accessors assocs command-loop kernel sequences ;

M: command-loop find-command
    [ abbrevs>> ?at drop ]
    [ commands>> [ name>> = ] with find nip ] bi ;