assocs: 50% faster zip.

2012-04-25 20:09:21 -07:00 · 2012-04-25 20:09:21 -07:00 · 664908c78f
parent 40e79d4b56
commit 664908c78f
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 ;