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
;