basis, extra: Use zip-index.

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

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index bf87496965b2896535f3ba25d601652fb5f8016e..9c7d7a557abfe01073abf0a0d5f568bf37bb4d31 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -372,7 +372,7 @@ PRIVATE>
     ] keep ; inline
 
 : arg-sort ( seq -- indices )
-    dup length iota zip sort-keys values ;
+    zip-index sort-keys values ;
 
 : first= ( seq elt -- ? ) [ first ] dip = ; inline
 : second= ( seq elt -- ? ) [ second ] dip = ; inline