Update documentation for stricter vocabulary search path semantics

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

diff --git a/extra/fuel/xref/xref.factor b/extra/fuel/xref/xref.factor
index 3dfa129a7ff05ec1085ef6b31d4d3b2235480446..3e3279ece7ebbac5c9bdb649a081befaf91d6c77 100644 (file)
--- a/extra/fuel/xref/xref.factor
+++ b/extra/fuel/xref/xref.factor
@@ -36,10 +36,8 @@ MEMO: (vocab-words) ( name -- seq )
 
 : current-words ( -- seq )
     manifest get
-    [ search-vocabs>> [ words>> ] map ]
-    [ qualified-vocabs>> [ words>> ] map ]
-    [ extra-words>> ]
-    tri 3append assoc-combine keys ; inline
+    [ search-vocabs>> ] [ qualified-vocabs>> ] bi [ words>> ] bi@
+    assoc-union keys ; inline
 
 : vocabs-words ( names -- seq )
     prune [ (vocab-words) ] map concat ; inline