From 7d7a85e69a8d53fcae442613f9419ab564a812fe Mon Sep 17 00:00:00 2001
From: "Jose A. Ortega Ruiz" <jao@gnu.org>
Date: Fri, 31 Jul 2009 17:46:52 +0200
Subject: [PATCH] FUEL: Fix word completion in contexts where no context is
 provided (e.g., the listener)

---
 extra/fuel/xref/xref.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/fuel/xref/xref.factor b/extra/fuel/xref/xref.factor
index 86aa215e21..2eca55d156 100644
--- a/extra/fuel/xref/xref.factor
+++ b/extra/fuel/xref/xref.factor
@@ -36,8 +36,8 @@ MEMO: (vocab-words) ( name -- seq )
 
 : current-words ( -- seq )
     manifest get
-    [ search-vocabs>> ] [ qualified-vocabs>> ] bi [ words>> ] bi@
-    assoc-union keys ;
+    [ search-vocabs>> ] [ qualified-vocabs>> ] bi [ [ words>> ] map ] bi@
+    append H{ } [ assoc-union ] reduce keys ;
 
 : vocabs-words ( names -- seq )
     prune [ (vocab-words) ] map concat ;