append-vocab-dir ( vocab str/f -- path )

Vocabulary

vocabs.loader

Inputs

vocab	an object
str/f	an object

Outputs

path

an object

Definition

USING: kernel sequences splitting vocabs ;

IN: vocabs.loader

: append-vocab-dir ( vocab str/f -- path )
    [ vocab-name ".private" ?tail drop "." split ] dip
    [ [ dup last ] dip append suffix ] when* "/" join ;