[ [ ... ] bi@ >=< ] sort => [ ... ] inv-sort-with

diff --git a/extra/pair-methods/pair-methods.factor b/extra/pair-methods/pair-methods.factor
index d44d5bce78e6974bc94cbca66e3a6d18baab9143..131f9f5465107c2b597850589203143e1bed36cd 100644 (file)
--- a/extra/pair-methods/pair-methods.factor
+++ b/extra/pair-methods/pair-methods.factor
@@ -21,7 +21,7 @@ ERROR: no-pair-method a b generic ;
 
 : sorted-pair-methods ( word -- alist )
     "pair-generic-methods" word-prop >alist
-    [ [ first method-sort-key ] bi@ >=< ] sort ;
+    [ first method-sort-key ] inv-sort-with ;
 
 : pair-generic-definition ( word -- def )
     [ sorted-pair-methods [ first2 pair-method-cond ] map ]