trivial factoring

2009-08-17 18:59:03 -05:00 · 2009-08-17 18:59:03 -05:00 · 45c0ef9a51
parent b239c3b605
commit 45c0ef9a51
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