sortign.extras: use second-unsafe.

diff --git a/extra/sorting/extras/extras.factor b/extra/sorting/extras/extras.factor
index 6f0ef81104af5037b66ef04d39bd7a2824bc5464..2c329fb0f9a3c46211a5813612d88aa7395b0fe7 100644 (file)
--- 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