Merge branch 'master' into new_ui

[factor.git] / core / words / words.factor

diff --git a/core/words/words.factor b/core/words/words.factor
index 86486640316d2e39abaf7c80ff73779fce26c3f4..c177ca96d9086fc618c3a2b7095d674b00e40e1b 100755 (executable)
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -109,10 +109,9 @@ compiled-generic-crossref [ H{ } clone ] initialize
 
 : compiled-xref ( word dependencies generic-dependencies -- )
     [ [ drop crossref? ] { } assoc-filter-as f like ] bi@
-    [ over ] dip
     [ "compiled-uses" compiled-crossref (compiled-xref) ]
     [ "compiled-generic-uses" compiled-generic-crossref (compiled-xref) ]
-    2bi* ;
+    bi-curry* bi ;
 
 : (compiled-unxref) ( word word-prop variable -- )
     [ [ [ dupd word-prop ] dip get remove-vertex* ] 2curry ]