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

Vocabulary

sorting.specification.private

Inputs

obj1	an object
obj2	an object
word	an object

Outputs

<=>/f

an object

Definition

USING: combinators kernel math.order ;

IN: sorting.specification.private

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