assocs: 50% faster zip.

2012-04-25 20:09:21 -07:00 · 2012-04-25 20:09:21 -07:00 · 9f4d5da304
parent f51a8f49ef
commit 9f4d5da304
1 changed files with 1 additions and 1 deletions
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@ -182,7 +182,7 @@ M: assoc value-at* swap [ = nip ] curry assoc-find nip ;
    [ ?push ] change-at ;

 : zip ( keys values -- alist )
-    2array flip ; inline
+    [ 2array ] { } 2map-as ; inline

 : unzip ( assoc -- keys values )
    dup assoc-empty? [ drop { } { } ] [ >alist flip first2 ] if ;