sortign.extras: use second-unsafe.

2012-09-19 10:23:58 -07:00 · 2012-09-19 10:23:58 -07:00 · ffbe20556b
parent 40a8936fe6
commit ffbe20556b
1 changed files with 1 additions and 1 deletions
--- 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