help.html: remove funky vocab-prefix hack.

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index eaba3c55be73d3dbcbc83f9ea4f97f87d9966ace..fefcf95774e64049f829f75f49b45894655c2103 100644 (file)
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -127,7 +127,7 @@ M: pathname url-of
     dup topic>filename utf8 [ help>html write-xml ] with-file-writer ;
 
 : all-vocabs-really ( -- seq )
-    all-disk-vocabs-recursive no-roots remove-redundant-prefixes
+    all-disk-vocabs-recursive no-roots no-prefixes
     [ vocab-name "scratchpad" = ] reject ;
 
 : all-topics ( -- topics )

diff --git a/basis/help/vocabs/vocabs.factor b/basis/help/vocabs/vocabs.factor
index 115ee752a286e1dd8efe83bc4afb7a0b488b1964..1f39d06ab852cb4a90f8511252eee182d7a07721 100644 (file)
--- a/basis/help/vocabs/vocabs.factor
+++ b/basis/help/vocabs/vocabs.factor
@@ -27,7 +27,7 @@ IN: help.vocabs
     $heading ;
 
 : $vocabs ( seq -- )
-    convert-prefixes [ vocab-row ] map vocab-headings prefix $table ;
+    [ vocab-row ] map vocab-headings prefix $table ;
 
 : $vocab-roots ( assoc -- )
     [

diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index 3cc3e0fe663c91e5e47ea1157314830635f543c4..508af66956a3ca77ab619b68113d63672d2dced0 100644 (file)
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@@ -71,19 +71,6 @@ PRIVATE>
 
 : no-prefixes ( seq -- seq' ) [ vocab-prefix? ] reject ;
 
-: convert-prefixes ( seq -- seq' )
-    [ dup vocab-prefix? [ name>> <vocab-link> ] when ] map ;
-
-: remove-redundant-prefixes ( seq -- seq' )
-    ! Hack.
-    [ vocab-prefix? ] partition
-    [
-        [ vocab-name ] map fast-set
-        '[ name>> _ in? ] reject
-        convert-prefixes
-    ] keep
-    append ;
-
 : no-roots ( assoc -- seq ) values concat ;
 
 : filter-vocabs ( assoc -- seq )