fuel: get-vocabs word is redundant

diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor
index 61f85d8c8d21c72c04305496c29e983eb3df757c..c0fdc8c15eed18b0d18bcf3aefe60d63286d3bb4 100644 (file)
--- a/extra/fuel/fuel.factor
+++ b/extra/fuel/fuel.factor
@@ -4,7 +4,7 @@
 USING: accessors assocs compiler.units continuations fuel.eval fuel.help
 fuel.remote fuel.xref help.topics io.pathnames kernel namespaces parser
 sequences tools.scaffold vocabs.loader vocabs.parser words vocabs.files
-vocabs.metadata vocabs ;
+vocabs.metadata vocabs vocabs.hierarchy ;
 
 IN: fuel
 
@@ -83,7 +83,7 @@ PRIVATE>
     article-location fuel-eval-set-result ;
 
 : fuel-get-vocabs ( -- )
-    get-vocabs fuel-eval-set-result ;
+    all-vocab-names fuel-eval-set-result ;
 
 : fuel-get-vocabs/prefix ( prefix -- )
     get-vocabs/prefix fuel-eval-set-result ;

diff --git a/extra/fuel/xref/xref.factor b/extra/fuel/xref/xref.factor
index a88fd230673337997655fa45dd5ebc4cfbca73bf..642b0b2a55fcd84809fcb1ffd1fe0b2d07dcbf81 100644 (file)
--- a/extra/fuel/xref/xref.factor
+++ b/extra/fuel/xref/xref.factor
@@ -64,9 +64,7 @@ PRIVATE>
 
 : article-location ( name -- loc ) lookup-article loc>> get-loc ;
 
-: get-vocabs ( -- seq ) all-vocab-names ;
-
-: get-vocabs/prefix ( prefix -- seq ) get-vocabs swap filter-prefix ;
+: get-vocabs/prefix ( prefix -- seq ) all-vocab-names swap filter-prefix ;
 
 : get-vocabs-words/prefix ( prefix names/f -- seq )
     [ vocabs-words ] [ current-words ] if* natural-sort swap filter-prefix ;