FUEL: Fix word completion in contexts where no context is provided (e.g., the listener)

diff --git a/extra/fuel/xref/xref.factor b/extra/fuel/xref/xref.factor
index 86aa215e2104227803381e5cb2d54c3a8426bc0a..2eca55d1565ecaced1679b932e02db9d61dc72f6 100644 (file)
--- 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 ;