$completions ( seq -- )

Vocabulary

help.apropos

Inputs

seq

an object

Outputs

None

Definition

USING: arrays help.markup help.vocabs kernel sequences vocabs
words ;

IN: help.apropos

: $completions ( seq -- )
    dup [ word? ] all?
    [ words-table ] [
        dup [ vocab-spec? ] all?
        [ $vocabs ] [ [ <$pretty-link> 1array ] map $table ] if
    ] if ;