add-vocab% ( vocab-path vocab-name entries -- )

Vocabulary

vocabs.hierarchy.private

Inputs

vocab-path	an object
vocab-name	an object
entries	an object

Outputs

None

Definition

USING: accessors io.pathnames kernel make sequences vocabs
vocabs.hierarchy ;

IN: vocabs.hierarchy.private

: add-vocab% ( vocab-path vocab-name entries -- )
    3dup rot file-name ".factor" append [ [ name>> ] ] dip
    [ = ] curry compose any?
    [ >vocab-link ] [ <vocab-prefix> ] if , add-vocab-children%
    ;