From 97a515c04e39018e96bcd468e9d1eca2eb172c49 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sun, 2 Aug 2009 20:14:56 -0500 Subject: [PATCH] [ [ ... ] bi@ >=< ] sort => [ ... ] inv-sort-with --- extra/pair-methods/pair-methods.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/pair-methods/pair-methods.factor b/extra/pair-methods/pair-methods.factor index d44d5bce78..131f9f5465 100644 --- 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 ]