basis/sorting/functor/functor.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: functors math.order ;
   4 IN: sorting.functor
   5
   6 <FUNCTOR: define-sorting ( NAME QUOT -- )
   7
   8 NAME<=> DEFINES ${NAME}<=>
   9 NAME>=< DEFINES ${NAME}>=<
  10
  11 WHERE
  12
  13 : NAME<=> ( obj1 obj2 -- <=> ) QUOT compare ;
  14 : NAME>=< ( obj1 obj2 -- >=< ) NAME<=> invert-comparison ;
  15
  16 ;FUNCTOR>