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

Vocabulary

vocabs.loader.private

Inputs

path

an object

Outputs

path/f

an object

Definition

USING: io.pathnames kernel vocabs.loader ;

IN: vocabs.loader.private

: find-root-for-vocab-pathname ( path -- path/f )
    dup find-root-for
    [ prepend-path ] [ not-found-in-roots ] if* ;