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 8e9ea6a9ea88003c0346636fbf074e9e219f0d2d..4f700387cbb25830d73e8c1d326a98ae5a50af2d 100644 (file)
--- a/basis/sorting/functor/functor.factor
+++ b/basis/sorting/functor/functor.factor
@@ -1,9 +1,9 @@
 ! 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}>=<
@@ -13,4 +13,4 @@ WHERE
 : NAME<=> ( obj1 obj2 -- <=> ) QUOT compare ;
 : NAME>=< ( obj1 obj2 -- >=< ) NAME<=> invert-comparison ;
 
-;FUNCTOR
+;FUNCTOR>