steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Joe Groff 2009-08-02 20:14:56 -05:00
parent a2fe9f1952
commit 97a515c04e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/pair-methods/pair-methods.factor
View File

@ -21,7 +21,7 @@ ERROR: no-pair-method a b generic ;
: sorted-pair-methods ( word -- alist ) : sorted-pair-methods ( word -- alist )
"pair-generic-methods" word-prop >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 ) : pair-generic-definition ( word -- def )
[ sorted-pair-methods [ first2 pair-method-cond ] map ] [ sorted-pair-methods [ first2 pair-method-cond ] map ]