help.html: remove funky vocab-prefix hack.

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 )

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 -- )
     [

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 )