vocabs.loader: more private fixes.

db4
John Benediktsson 2012-08-10 15:08:40 -07:00
parent 344b89fe5f
commit 41ed793756
1 changed files with 8 additions and 2 deletions
core/vocabs/loader

View File

@ -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 ;