factor: map-zip -> zip-with

diff --git a/basis/windows/user32/user32.factor b/basis/windows/user32/user32.factor
index fb14d7e106cc5ecaf24961964c03cdf9d9e03176..06b9f284fbd7248c426e5364d3d3967ac371a7a6 100644 (file)
--- a/basis/windows/user32/user32.factor
+++ b/basis/windows/user32/user32.factor
@@ -2366,7 +2366,7 @@ FUNCTION: BOOL IsValidDpiAwarenessContext (
 )
 
 ! DPI_AWARENESS_CONTEXT experimentally:
-! USE: math.ranges -100 1000 [a,b] [ <alien> IsValidDpiAwarenessContext ] map-zip
+! USE: math.ranges -100 1000 [a,b] [ <alien> IsValidDpiAwarenessContext ] zip-with
 ! [ nip 0 > ] assoc-filter keys .
 ! { -5 -4 -3 -2 -1 17 18 34 273 529 785 }
 

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

diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor
index e949a387e1e10825e596038cd142c59a2ed3fdde..41b28a57b55fc255e53c15dadab7593a6971f850 100644 (file)
--- a/extra/modern/modern.factor
+++ b/extra/modern/modern.factor
@@ -480,10 +480,10 @@ ERROR: compound-syntax-disallowed n seq obj ;
     utf8 file-contents string>literals ;
 
 : lex-paths ( vocabs -- assoc )
-    [ [ path>literals ] [ nip ] recover ] map-zip ;
+    [ [ path>literals ] [ nip ] recover ] zip-with ;
 
 : lex-vocabs ( vocabs -- assoc )
-    [ [ vocab>literals ] [ nip ] recover ] map-zip ;
+    [ [ vocab>literals ] [ nip ] recover ] zip-with ;
 
 : failed-lexing ( assoc -- assoc' ) [ nip array? ] assoc-reject ;
 

diff --git a/extra/modern/out/out.factor b/extra/modern/out/out.factor
index c4e3f085b17faf2fb33ff94fb2db973f85b1a45d..1eb4634350e39f976c60dd709f003b12ccdd986a 100644 (file)
--- a/extra/modern/out/out.factor
+++ b/extra/modern/out/out.factor
@@ -85,7 +85,7 @@ DEFER: map-literals
 
 : strings-core-to-file ( -- )
     core-vocabs
-    [ ".private" ?tail drop vocab-source-path utf8 file-contents ] map-zip
+    [ ".private" ?tail drop vocab-source-path utf8 file-contents ] zip-with
     [ "[========[" dup matching-delimiter-string surround ] assoc-map
     [
         first2 [ "VOCAB: " prepend ] dip " " glue
@@ -96,7 +96,7 @@ DEFER: map-literals
 
 : parsed-core-to-file ( -- )
     core-vocabs
-    [ vocab>literals ] map-zip
+    [ vocab>literals ] zip-with
     [
         first2 [ "<VOCAB: " prepend ] dip
         >strings

diff --git a/extra/s3/s3.factor b/extra/s3/s3.factor
index 153d638ca1e6bbb9c30797c39ffda7e7e840eeea..54fed8ba293dfccc2ccb3950adad5da0b02b1a7e 100644 (file)
--- a/extra/s3/s3.factor
+++ b/extra/s3/s3.factor
@@ -137,4 +137,4 @@ PRIVATE>
 
 : bucket>alist ( bucket -- alist )
     dup keys
-    [ name>> get-object nip ] with map-zip ;
\ No newline at end of file
+    [ name>> get-object nip ] with zip-with ;
\ No newline at end of file

diff --git a/extra/semantic-versioning/semantic-versioning-tests.factor b/extra/semantic-versioning/semantic-versioning-tests.factor
index 8e5a2560ea5555ac6c94c822f058bd4c4c2d7f25..4c44af47e85ceb193723be3bcdc6b8d25ee1f3a6 100644 (file)
--- a/extra/semantic-versioning/semantic-versioning-tests.factor
+++ b/extra/semantic-versioning/semantic-versioning-tests.factor
@@ -88,12 +88,12 @@ CONSTANT: semver-gt-comparisons {
 
 { t } [
     semver-gt-comparisons
-    [ first2 version<=> ] map-zip
+    [ first2 version<=> ] zip-with
     values [ +gt+ = ] all?
 ] unit-test
 
 { t } [
     semver-gt-comparisons
-    [ first2 swap version<=> ] map-zip
+    [ first2 swap version<=> ] zip-with
     values [ +lt+ = ] all?
 ] unit-test
\ No newline at end of file

diff --git a/extra/semver/semver-tests.factor b/extra/semver/semver-tests.factor
index 3515f9451d767398785703f0e2ac55743589ec10..3c6d6a8a3a3f27fb5e4a7afe80899efc37fe7478 100644 (file)
--- a/extra/semver/semver-tests.factor
+++ b/extra/semver/semver-tests.factor
@@ -131,12 +131,12 @@ CONSTANT: semver-gt-comparisons {
 
 { t } [
     semver-gt-comparisons
-    [ first2 [ parse-semver ] bi@ <=> ] map-zip
+    [ first2 [ parse-semver ] bi@ <=> ] zip-with
     values [ +gt+ = ] all?
 ] unit-test
 
 { t } [
     semver-gt-comparisons
-    [ first2 swap [ parse-semver ] bi@ <=> ] map-zip
+    [ first2 swap [ parse-semver ] bi@ <=> ] zip-with
     values [ +lt+ = ] all?
 ] unit-test
\ No newline at end of file

diff --git a/extra/zoneinfo/zoneinfo.factor b/extra/zoneinfo/zoneinfo.factor
index ac7a02a9a383efdcec6aac317e11430cdac638f1..492376997541e5d079c76a25006ad76746939ad4 100644 (file)
--- a/extra/zoneinfo/zoneinfo.factor
+++ b/extra/zoneinfo/zoneinfo.factor
@@ -132,7 +132,7 @@ ERROR: zone-not-found name ;
         [
             letters>> swap "%" split1 dup [ 1 tail ] when surround
         ] with V{ } map-as
-    ] map-zip ;
+    ] zip-with ;
 
 : number>value ( n -- n' )
     {