Rename and add sorting words

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

diff --git a/extra/gml/core/core.factor b/extra/gml/core/core.factor
index 41c6985a8061ccc3a3f97d044113d298bfc9a51e..66604e2bf320f3225564508fc46bd46c818849f5 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 )
-    zip-index sort-keys reverse values ;
+    zip-index sort-keys <reversed> values ;
 
 ! Dictionaries
 ERROR: not-a-dict object ;