execute-comparator ( obj1 obj2 word -- <=>/f )


Vocabulary
sorting.slots

Definition
USING: combinators kernel math.order ;

IN: sorting.slots

: execute-comparator ( obj1 obj2 word -- <=>/f )
(( obj1 obj2 -- <=> )) execute-effect dup +eq+ eq?
[ drop f ] when ;