vocabs.loader: teach append-vocab-dir about private vocabs.
parent
9d2a1a6b7c
commit
42922cee81
|
@ -45,7 +45,7 @@ PRIVATE>
|
|||
vocab-name H{ { CHAR: . CHAR: / } } substitute ;
|
||||
|
||||
: append-vocab-dir ( vocab str/f -- path )
|
||||
[ vocab-name "." split ] dip
|
||||
[ vocab-name ".private" ?tail drop "." split ] dip
|
||||
[ [ dup last ] dip append suffix ] when*
|
||||
"/" join ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue