From 17de36ddfce8ca6d026727b89959e0901a4ee152 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 5 Dec 2014 10:50:32 -0800 Subject: [PATCH] sorting.extras: faster map-sort. --- extra/sorting/extras/extras.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/sorting/extras/extras.factor b/extra/sorting/extras/extras.factor index 39f45757e8..949c54885b 100644 --- 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