steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vocabs.loader: teach append-vocab-dir about private vocabs.

db4
John Benediktsson 2012-07-30 11:36:54 -07:00
parent 9d2a1a6b7c
commit 42922cee81
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/vocabs/loader/loader.factor
View File

@ -45,7 +45,7 @@ PRIVATE>
vocab-name H{ { CHAR: . CHAR: / } } substitute ; vocab-name H{ { CHAR: . CHAR: / } } substitute ;
: append-vocab-dir ( vocab str/f -- path ) : append-vocab-dir ( vocab str/f -- path )
[ vocab-name "." split ] dip [ vocab-name ".private" ?tail drop "." split ] dip
[ [ dup last ] dip append suffix ] when* [ [ dup last ] dip append suffix ] when*
"/" join ; "/" join ;