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 f ] [
        root-cache get 2dup at
        [ 2nip ] [
            over ".factor" append-vocab-dir find-root-for
            [ [ -rot set-at ] [ 2drop ] if* ] keep
        ] if*
    ] if ;