factor: trim using lists

[factor.git] / basis / sorting / functor / functor.factor

diff --git a/basis/sorting/functor/functor.factor b/basis/sorting/functor/functor.factor
index 7f46af4c9274ee9d8b4d7659e89a510170bc682c..4f700387cbb25830d73e8c1d326a98ae5a50af2d 100644 (file)
--- a/basis/sorting/functor/functor.factor
+++ b/basis/sorting/functor/functor.factor
@@ -1,16 +1,16 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: functors kernel math.order sequences sorting ;
+USING: functors math.order ;
 IN: sorting.functor
 
-FUNCTOR: define-sorting ( NAME QUOT -- )
+<FUNCTOR: define-sorting ( NAME QUOT -- )
 
 NAME<=> DEFINES ${NAME}<=>
 NAME>=< DEFINES ${NAME}>=<
 
 WHERE
 
-: NAME<=> ( obj1 obj2 -- <=> ) QUOT bi@ <=> ;
+: NAME<=> ( obj1 obj2 -- <=> ) QUOT compare ;
 : NAME>=< ( obj1 obj2 -- >=< ) NAME<=> invert-comparison ;
 
-;FUNCTOR
+;FUNCTOR>