From b4f97dc63293cdbddaf1e097a280955e77f6e1c7 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 5 Aug 2009 23:04:34 -0500
Subject: [PATCH] vocabs.hierarchy: load word now tries to load the vocab named
 by the prefix itself

---
 basis/vocabs/hierarchy/hierarchy.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index aa3e619660..9352e81afc 100644
--- 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 -- )