find-vocab-root ( vocab -- path/f )

Vocabulary

vocabs.loader

Inputs

vocab

a vocabulary specifier

Outputs

path/f

a pathname string

Word description

Searches for a vocabulary in the vocabulary roots.

Definition

USING: assocs kernel namespaces sequences vocabs
vocabs.loader.private ;

IN: vocabs.loader

: find-vocab-root ( vocab -- path/f )
    vocab-name dup ".private" tail? drop root-cache get 2dup at
    [ 2nip ] [
        over ".factor" append-vocab-dir find-root-for
        [ [ -rot set-at ] [ 2drop ] if* ] keep
    ] if* ;