From ffbe20556be9e4f48b6e53a93b90289723f32f1d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 19 Sep 2012 10:23:58 -0700 Subject: [PATCH] sortign.extras: use second-unsafe. --- 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 6f0ef81104..2c329fb0f9 100644 --- a/extra/sorting/extras/extras.factor +++ b/extra/sorting/extras/extras.factor @@ -4,4 +4,4 @@ IN: sorting.extras : argsort ( seq quot: ( obj1 obj2 -- <=> ) -- sortedseq ) [ dup length iota zip ] dip [ [ first-unsafe ] bi@ ] prepose - sort [ 1 swap nth-unsafe ] map! ; inline + sort [ second-unsafe ] map! ; inline