vocabs.hierarchy: load word now tries to load the vocab named by the prefix itself

2009-08-05 23:04:34 -05:00 · 2009-08-05 23:04:34 -05:00 · b4f97dc632
parent 370f4c081d
commit b4f97dc632
1 changed files with 3 additions and 2 deletions
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@ -107,8 +107,9 @@ MEMO: all-vocabs-recursive ( -- assoc )
 PRIVATE>

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

 : load ( prefix -- )