factor: map-zip -> zip-with

[factor.git] / extra / assocs / extras / extras.factor

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index ee5ab677302cc8f65db0975b555754f4ad32fabd..9ae550a3d5d092f416251f642a04586023b483c4 100644 (file)
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -189,7 +189,7 @@ PRIVATE>
     dup any-multi-value? [ expand-values-set-at flatten-values ] when ;
 
 : intersect-keys ( assoc seq -- elts )
-    [ of ] with map-zip sift-values ; inline
+    [ of ] with zip-with sift-values ; inline
 
 : values-of ( assoc seq -- elts )
     [ of ] with map sift ; inline