showing-definition? ( defspec set -- ? )

Vocabulary
ui.tools.browser

Definition

USING: accessors combinators.short-circuit help.topics kernel
sets vocabs ;

IN: ui.tools.browser

: showing-definition? ( defspec set -- ? )
    {
        [ in? ]
        [ [ dup word-link? [ name>> ] when ] dip in? ]
        [ [ dup vocab-link? [ lookup-vocab ] when ] dip in? ]
    } 2|| ;