From 7699fb92b1172c48bd80283bd60e7a9f656142e2 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 2 Nov 2011 18:17:14 -0700 Subject: [PATCH] vocabs.loader: Fix spacing. Remove unit test. --- core/vocabs/loader/loader-tests.factor | 1 - core/vocabs/loader/loader.factor | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/core/vocabs/loader/loader-tests.factor b/core/vocabs/loader/loader-tests.factor index 8d5b61b96b..73eea11354 100644 --- 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 d95aad11f2..3711859094 100644 --- 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