(word-help) ( word -- element )

Vocabulary

help.private

Inputs

word

an object

Outputs

element

an object

Definition

USING: arrays assocs combinators help help.markup kernel make
namespaces ;

IN: help.private

: (word-help) ( word -- element )
    [
        {
            [ \ $vocabulary swap 2array , ]
            [ word-help % ]
            [ \ $related swap 2array , ]
            [
                dup global at
                [ get-global \ $value swap 2array , ] [ drop ]
                if
            ]
            [ \ $definition swap 2array , ]
        } cleave
    ] { } make ;