From fa57d3e85dae506db5c1838b088d07f142b54191 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 10 Aug 2012 15:11:42 -0700
Subject: [PATCH] vocabs.loader: simplify.

---
 core/vocabs/loader/loader.factor | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 99edbad907..6ef0454e66 100644
--- 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 ;