sequences.extras: simplify fry-map-as

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 775c84f225607467bab8997f38038935124b7787..06c2490e5571b407dae1dd98b6a91267783e914c 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -1195,6 +1195,5 @@ INSTANCE: virtual-zip-index immutable-sequence
 
 : fry-map-as ( seq quot exemplar -- newseq )
     [ 2drop length ]
-    [ overd new-sequence-like dup ]
-    [ 2nip ] 3tri
-    '[ [ [ _ nth-unsafe @ ] [ _ set-nth-unsafe ] bi ] each-integer _ _ like ] call ; inline
+    [ overd new-sequence-like dup ] 3bi
+    '[ [ [ _ nth-unsafe @ ] [ _ set-nth-unsafe ] bi ] each-integer _ ] call ; inline