]> gitweb.factorcode.org Git - factor.git/commitdiff
sequences.extras: oops. cleanup dumb implementation.
authorDoug Coleman <doug.coleman@gmail.com>
Tue, 29 Mar 2016 20:25:29 +0000 (13:25 -0700)
committerDoug Coleman <doug.coleman@gmail.com>
Tue, 29 Mar 2016 20:26:02 +0000 (13:26 -0700)
extra/sequences/extras/extras.factor

index d562d82e1b40799c76a1c1f2566ab66d99f721dc..811ec9bc4389520f8d1ab1e93f39ee98a7e6bd62 100644 (file)
@@ -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