($navigation-links) ( topic -- )

Vocabulary

help

Inputs

topic

an object

Outputs

None

Definition

USING: arrays help.crossref help.markup kernel make sequences ;

IN: help

: ($navigation-links) ( topic -- )
    [
        [
            prev-article
            [ 1array \ $long-link "Prev:" ($navigation-link) ]
            when*
        ] [
            next-article
            [ 1array \ $long-link "Next:" ($navigation-link) ]
            when*
        ] bi
    ] { } make [ ($navigation-table) ] unless-empty ;