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

View File

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