<abbrevs-command> ( command-loop -- command )

Vocabulary

command-loop.private

Inputs

command-loop

an object

Outputs

command

an object

Definition

USING: command-loop kernel ;

IN: command-loop.private

: <abbrevs-command> ( command-loop -- command )
    "abbrevs" swap [ do-abbrevs ] curry
    "List abbreviated commands" f <command> ;