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 USING: accessors assocs compiler.units continuations fuel.eval fuel.help
fuel.remote fuel.xref help.topics io.pathnames kernel namespaces parser fuel.remote fuel.xref help.topics io.pathnames kernel namespaces parser
sequences tools.scaffold vocabs.loader vocabs.parser words vocabs.files sequences tools.scaffold vocabs.loader vocabs.parser words vocabs.files
vocabs.metadata vocabs ; vocabs.metadata vocabs vocabs.hierarchy ;
IN: fuel IN: fuel
@ -83,7 +83,7 @@ PRIVATE>
article-location fuel-eval-set-result ; article-location fuel-eval-set-result ;
: fuel-get-vocabs ( -- ) : fuel-get-vocabs ( -- )
get-vocabs fuel-eval-set-result ; all-vocab-names fuel-eval-set-result ;
: fuel-get-vocabs/prefix ( prefix -- ) : fuel-get-vocabs/prefix ( prefix -- )
get-vocabs/prefix fuel-eval-set-result ; 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 ; : article-location ( name -- loc ) lookup-article loc>> get-loc ;
: get-vocabs ( -- seq ) all-vocab-names ; : get-vocabs/prefix ( prefix -- seq ) all-vocab-names swap filter-prefix ;
: get-vocabs/prefix ( prefix -- seq ) get-vocabs swap filter-prefix ;
: get-vocabs-words/prefix ( prefix names/f -- seq ) : get-vocabs-words/prefix ( prefix names/f -- seq )
[ vocabs-words ] [ current-words ] if* natural-sort swap filter-prefix ; [ vocabs-words ] [ current-words ] if* natural-sort swap filter-prefix ;