vocabs.loader: early exit for private vocab.

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index a05f505060e2d74f6a601909c9d6481a75c56a1f..1c4b07290b2e8f8068caccb63a5b41c0b5b1e7e5 100644 (file)
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -50,8 +50,11 @@ PRIVATE>
     "/" join ;
 
 : find-vocab-root ( vocab -- path/f )
-    vocab-name root-cache get
-    [ ".factor" append-vocab-dir find-root-for ] cache ;
+    vocab-name root-cache get [
+        dup ".private" tail? [ drop f ] [
+            ".factor" append-vocab-dir find-root-for
+        ] if
+    ] cache ;
 
 : vocab-append-path ( vocab path -- newpath )
     swap find-vocab-root dup [ prepend-path ] [ 2drop f ] if ;