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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,7 +89,9 @@ require-when-table [ V{ } clone ] initialize
dup check-vocab-hook get call( vocab -- ) dup check-vocab-hook get call( vocab -- )
[ [
+parsing+ >>source-loaded? +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 [ +parsing+ >>source-loaded? ] dip
[ % ] [ call( -- ) ] if-bootstrapping [ % ] [ call( -- ) ] if-bootstrapping
+done+ >>source-loaded? +done+ >>source-loaded?
@ -100,7 +102,11 @@ require-when-table [ V{ } clone ] initialize
load-help? get [ load-help? get [
[ [
+parsing+ >>docs-loaded? +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? +done+ >>docs-loaded?
] [ ] [ f >>docs-loaded? ] cleanup ] [ ] [ f >>docs-loaded? ] cleanup
] when drop ; ] when drop ;