diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor index 61f85d8c8d..c0fdc8c15e 100644 --- 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 a88fd23067..642b0b2a55 100644 --- 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 ;