Merge branch 'emacs' of http://git.hacks-galore.org/jao/factor

[factor.git] / extra / fuel / xref / xref.factor

diff --git a/extra/fuel/xref/xref.factor b/extra/fuel/xref/xref.factor
index cfd036e6258c4c812d65c21e5562a11bb403ddf0..c228901afbefea40326aa38cc2e6e1c08b776f9b 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 ;