]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/modern/out/out.factor
factor: map-zip -> zip-with
[factor.git] / extra / modern / out / out.factor
index c4e3f085b17faf2fb33ff94fb2db973f85b1a45d..1eb4634350e39f976c60dd709f003b12ccdd986a 100644 (file)
@@ -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