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

vocabs.loader: simplify.

db4
John Benediktsson 2012-08-10 15:11:42 -07:00
parent 41ed793756
commit fa57d3e85d
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -102,11 +102,9 @@ require-when-table [ V{ } clone ] initialize
load-help? get [ load-help? get [
[ [
+parsing+ >>docs-loaded? +parsing+ >>docs-loaded?
[ dup vocab-name ".private" tail? [
dup vocab-name ".private" tail? [ drop ] [ dup vocab-docs-path [ ?run-file ] when*
vocab-docs-path [ ?run-file ] when* ] unless
] if
] keep
+done+ >>docs-loaded? +done+ >>docs-loaded?
] [ ] [ f >>docs-loaded? ] cleanup ] [ ] [ f >>docs-loaded? ] cleanup
] when drop ; ] when drop ;