sequences.extras: oops. cleanup dumb implementation.

2016-03-29 13:25:29 -07:00 · 2016-03-29 13:25:29 -07:00 · ebc2a8953c
parent 7dbe6c177e
commit ebc2a8953c
1 changed files with 1 additions and 1 deletions
--- 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
+    '[ _ keep swap ] map>alist ; inline