vocabs.loader: Fix spacing. Remove unit test.

diff --git a/core/vocabs/loader/loader-tests.factor b/core/vocabs/loader/loader-tests.factor
index 8d5b61b96bba65475eb69fafc56c2f75eb5a60f9..73eea1135494442f180eb66605eda10153a897fa 100644 (file)
--- a/core/vocabs/loader/loader-tests.factor
+++ b/core/vocabs/loader/loader-tests.factor
@@ -185,7 +185,6 @@ forget-junk
 [ ] [ "vocabs.loader.test.m" require ] unit-test
 [ t ] [ "vocabs.loader.test.n" lookup-vocab >boolean ] unit-test
 
-[ ] [ "vocabs" load ] unit-test
 [ f ] [ "vocabs.loader.test.p" lookup-vocab ] unit-test
 [ ] [ "vocabs.loader.test.p.private" require ] unit-test
 [ { "foo" } ] [ "vocabs.loader.test.p" words [ name>> ] map ] unit-test

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index d95aad11f236414f9227e4f7090bcd6a57b51724..37118590944a44084138873076b62334785ccf9d 100644 (file)
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -142,7 +142,7 @@ GENERIC: (require) ( name -- )
 
 M: vocab (require)
     [
-        dup source-loaded?>> +parsing+ eq?  [ drop ] [
+        dup source-loaded?>> +parsing+ eq? [ drop ] [
             dup source-loaded?>> [ dup load-source ] unless
             dup docs-loaded?>> [ dup load-docs ] unless
             drop