vocabs.loader: simplify.

2012-08-10 15:11:42 -07:00 · 2012-08-10 15:11:42 -07:00 · fa57d3e85d
parent 41ed793756
commit fa57d3e85d
1 changed files with 3 additions and 5 deletions
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@ -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 ;