maybe-include-root/prefix ( root prefix -- vocab-link/f )

Vocabulary

vocabs.hierarchy.private

Inputs

root	an object
prefix	an object

Outputs

vocab-link/f

an object

Definition

USING: kernel vocabs vocabs.loader ;

IN: vocabs.hierarchy.private

: maybe-include-root/prefix ( root prefix -- vocab-link/f )
    over
    [ [ find-vocab-root = ] keep swap ]
    [ nip dup find-vocab-root ] if [ >vocab-link ] [ drop f ] if
    ;