From bc3a6660b80b730b922ef4ba00f979e7c95be6b1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Wed, 5 Nov 2014 02:30:44 +0100 Subject: [PATCH] FUEL: words-matching outputs an assoc so pick only the keys which are the words + test --- extra/fuel/xref/xref-tests.factor | 6 ++++++ extra/fuel/xref/xref.factor | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) create mode 100644 extra/fuel/xref/xref-tests.factor diff --git a/extra/fuel/xref/xref-tests.factor b/extra/fuel/xref/xref-tests.factor new file mode 100644 index 0000000000..d1d9f0e98b --- /dev/null +++ b/extra/fuel/xref/xref-tests.factor @@ -0,0 +1,6 @@ +USING: fuel.xref kernel sequences tools.test ; +IN: fuel.xref.tests + +{ t } [ + "fuel" apropos-xref empty? not +] unit-test diff --git a/extra/fuel/xref/xref.factor b/extra/fuel/xref/xref.factor index 642b0b2a55..572916d659 100644 --- a/extra/fuel/xref/xref.factor +++ b/extra/fuel/xref/xref.factor @@ -48,7 +48,7 @@ PRIVATE> : 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 ;