basis, extra: Use zip-index.

[factor.git] / extra / sorting / extras / extras.factor

diff --git a/extra/sorting/extras/extras.factor b/extra/sorting/extras/extras.factor
index b00e28cea72c3e188b83b851a10ccb13f405c00d..39f45757e8eb8ca6f12b8b2e3b0ff008a701545d 100644 (file)
--- a/extra/sorting/extras/extras.factor
+++ b/extra/sorting/extras/extras.factor
@@ -3,7 +3,7 @@ math.order sequences sequences.extras sequences.private sorting ;
 IN: sorting.extras
 
 : argsort ( seq quot: ( obj1 obj2 -- <=> ) -- sortedseq )
-    [ dup length iota zip ] dip
+    [ zip-index ] dip
     [ [ first-unsafe ] bi@ ] prepose
     sort [ second-unsafe ] map! ; inline