ensure-parent-directory-is-not-dot ( path -- parent-directory )

Vocabulary

vocabs.loader.private

Inputs

path

an object

Outputs

parent-directory

an object

Definition

USING: io.pathnames kernel vocabs.loader ;

IN: vocabs.loader.private

: ensure-parent-directory-is-not-dot
    ( path -- parent-directory )
    dup parent-directory dup "." =
    [ drop not-found-in-roots ] [ nip ] if ;