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

diff --git a/extra/fuel/xref/xref-tests.factor b/extra/fuel/xref/xref-tests.factor
new file mode 100644 (file)
index 0000000..d1d9f0e
--- /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 642b0b2a55fcd84809fcb1ffd1fe0b2d07dcbf81..572916d6596ef950a764dc3e419f1e0e670fadc1 100644 (file)
--- 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 ;