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

Vocabulary

vocabs.loader.private

Inputs

path

an object

Outputs

path/f

an object

Definition

USING: io.files io.pathnames kernel namespaces sequences
vocabs.loader ;

IN: vocabs.loader.private

: find-root-for ( path -- path/f )
    vocab-roots get [ prepend-path file-exists? ] with find nip
    ;