path>vocab-parent-dir ( path -- path' )

Vocabulary

vocabs.refresh.monitor

Inputs

path

an object

Outputs

path'

an object

Definition

USING: io.pathnames kernel sequences ;

IN: vocabs.refresh.monitor

: path>vocab-parent-dir ( path -- path' )
    dup ".factor" tail? [ parent-directory ] when ;