steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vocabs.loader: Fix spacing. Remove unit test.

db4
Doug Coleman 2011-11-02 18:17:14 -07:00
parent bf0e07cffe
commit 7699fb92b1
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
core/vocabs/loader/loader-tests.factor
View File

@ -185,7 +185,6 @@ forget-junk
[ ] [ "vocabs.loader.test.m" require ] unit-test [ ] [ "vocabs.loader.test.m" require ] unit-test
[ t ] [ "vocabs.loader.test.n" lookup-vocab >boolean ] 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 [ f ] [ "vocabs.loader.test.p" lookup-vocab ] unit-test
[ ] [ "vocabs.loader.test.p.private" require ] unit-test [ ] [ "vocabs.loader.test.p.private" require ] unit-test
[ { "foo" } ] [ "vocabs.loader.test.p" words [ name>> ] map ] unit-test [ { "foo" } ] [ "vocabs.loader.test.p" words [ name>> ] map ] unit-test

2
core/vocabs/loader/loader.factor
View File

@ -142,7 +142,7 @@ GENERIC: (require) ( name -- )
M: vocab (require) M: vocab (require)
[ [
dup source-loaded?>> +parsing+ eq? [ drop ] [ dup source-loaded?>> +parsing+ eq? [ drop ] [
dup source-loaded?>> [ dup load-source ] unless dup source-loaded?>> [ dup load-source ] unless
dup docs-loaded?>> [ dup load-docs ] unless dup docs-loaded?>> [ dup load-docs ] unless
drop drop