sorting.extras: faster map-sort.

slavapestov · Dec 5, 2014 · 17de36d · 17de36d
1 parent e7bb1a4
commit 17de36d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/extra/sorting/extras/extras.factor b/extra/sorting/extras/extras.factor
@@ -8,7 +8,7 @@ IN: sorting.extras
     sort [ second-unsafe ] map! ; inline
 
 : map-sort ( ... seq quot: ( ... elt -- ... key ) -- ... sortedseq )
-    [ map ] curry keep zip
+    [ keep ] curry { } map>assoc
     [ { array } declare first-unsafe ] sort-with
     [ { array } declare second-unsafe ] map ; inline