steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fuel: get-vocabs word is redundant

db4
Björn Lindqvist 2014-11-03 19:50:25 +01:00 committed by John Benediktsson
parent 079d2e41db
commit db88ae8d30
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/fuel/fuel.factor
View File

@ -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 ;

4
extra/fuel/xref/xref.factor
View File

@ -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 ;