From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 29 Mar 2016 20:25:29 +0000 (-0700)
Subject: sequences.extras: oops. cleanup dumb implementation.
X-Git-Tag: unmaintained~1368
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=ebc2a8953cde60967d82a2c80814ec5467fbfc3b

sequences.extras: oops. cleanup dumb implementation.
---

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index d562d82e1b..811ec9bc43 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -553,4 +553,4 @@ PRIVATE>
     start-all* length ; inline
 
 : map-zip ( quot: ( x -- y ) -- alist )
-    '[ [ _ call ] [ ] bi swap ] map>alist ; inline
\ No newline at end of file
+    '[ _ keep swap ] map>alist ; inline
\ No newline at end of file