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

2012-07-30 11:36:54 -07:00 · 2012-07-30 11:36:54 -07:00 · 42922cee81
parent 9d2a1a6b7c
commit 42922cee81
1 changed files with 1 additions and 1 deletions
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@ -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 ;