vocabs.loader: more private fixes.

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index e63482ca81fb16b5357c9b7bdc06f0f6ccabfbe5..99edbad907927b8928b841d4be94c536bc318298 100644 (file)
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -89,7 +89,9 @@ require-when-table [ V{ } clone ] initialize
     dup check-vocab-hook get call( vocab -- )
     [
         +parsing+ >>source-loaded?
-        dup vocab-source-path [ parse-file ] [ [ ] ] if*
+        dup vocab-name ".private" tail? [ [ ] ] [
+            dup vocab-source-path [ parse-file ] [ [ ] ] if*
+        ] if
         [ +parsing+ >>source-loaded? ] dip
         [ % ] [ call( -- ) ] if-bootstrapping
         +done+ >>source-loaded?
@@ -100,7 +102,11 @@ require-when-table [ V{ } clone ] initialize
     load-help? get [
         [
             +parsing+ >>docs-loaded?
-            [ vocab-docs-path [ ?run-file ] when* ] keep
+            [
+                dup vocab-name ".private" tail? [ drop ] [
+                    vocab-docs-path [ ?run-file ] when*
+                ] if
+            ] keep
             +done+ >>docs-loaded?
         ] [ ] [ f >>docs-loaded? ] cleanup
     ] when drop ;