trivial factoring

2009-08-17 18:59:03 -05:00 · 2009-08-17 18:59:03 -05:00 · f998a81a43
parent 80a5467943
commit f998a81a43
1 changed files with 1 additions and 1 deletions
--- a/basis/sorting/functor/functor.factor
+++ b/basis/sorting/functor/functor.factor
@ -10,7 +10,7 @@ NAME>=< DEFINES ${NAME}>=<

 WHERE

-: NAME<=> ( obj1 obj2 -- <=> ) QUOT bi@ <=> ;
+: NAME<=> ( obj1 obj2 -- <=> ) QUOT compare ;
 : NAME>=< ( obj1 obj2 -- >=< ) NAME<=> invert-comparison ;

 ;FUNCTOR