do-abbrevs ( args command-loop -- )

Vocabulary

command-loop.private

Inputs

args	an object
command-loop	an object

Outputs

None

Definition

USING: accessors assocs formatting io kernel sorting ;

IN: command-loop.private

: do-abbrevs ( args command-loop -- )
    nl "Commands abbreviated:" print
    "=====================" print nip abbrevs>> sort-keys
    [ "%-7s %s\n" printf ] assoc-each nl ;