basis, extra: Use zip-index.

[factor.git] / extra / gml / core / core.factor

diff --git a/extra/gml/core/core.factor b/extra/gml/core/core.factor
index 9266ba8e3de5f27bc943f5c712cad90fe35c3be8..ef7d5aab39cc85e8c9f2e54ed32801bf6f18150c 100644 (file)
--- a/extra/gml/core/core.factor
+++ b/extra/gml/core/core.factor
@@ -74,7 +74,7 @@ GML: slice ( array n k -- slice )
 GML:: subarray ( array n k -- slice )
     k n k + array subseq ;
 GML: sort-number-permutation ( array -- permutation )
-    [ 2array ] map-index sort-keys reverse values ;
+    zip-index sort-keys reverse values ;
 
 ! Dictionaries
 ERROR: not-a-dict obj ;