vocabs.hierarchy: fix load-all

2009-08-05 23:08:14 -05:00 · 2009-08-05 23:08:14 -05:00 · 7734bd9bcd
parent fde421a880
commit 7734bd9bcd
1 changed files with 2 additions and 2 deletions
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@ -108,8 +108,8 @@ PRIVATE>

 : (load) ( prefix -- failures )
    [ child-vocabs-recursive no-roots no-prefixes ]
-    [ dup find-vocab-root [ >vocab-link ] [ drop f ] if ] bi
-    prefix filter-unportable
+    [ dup find-vocab-root [ >vocab-link prefix ] [ drop ] if ] bi
+    filter-unportable
    require-all ;

 : load ( prefix -- )