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

FUEL: words-matching outputs an assoc so pick only the keys which are the words + test

db4
Björn Lindqvist 2014-11-05 02:30:44 +01:00 committed by John Benediktsson
parent 2095fd57de
commit bc3a6660b8
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/fuel/xref/xref-tests.factor Normal file
View File

@ -0,0 +1,6 @@
USING: fuel.xref kernel sequences tools.test ;
IN: fuel.xref.tests
{ t } [
"fuel" apropos-xref empty? not
] unit-test

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

@ -48,7 +48,7 @@ PRIVATE>
: callees-xref ( word -- seq ) uses format-xrefs sort-xrefs ; : callees-xref ( word -- seq ) uses format-xrefs sort-xrefs ;
: apropos-xref ( str -- seq ) words-matching format-xrefs ; : apropos-xref ( str -- seq ) words-matching keys format-xrefs ;
: vocab-xref ( vocab -- seq ) words format-xrefs ; : vocab-xref ( vocab -- seq ) words format-xrefs ;