key-side ( k1 k2 -- n )

Vocabulary

trees.private

Inputs

k1	an object
k2	an object

Outputs

n

an object

Definition

USING: combinators math.order ;

IN: trees.private

: key-side ( k1 k2 -- n )
    <=>
    { { +lt+ [ left ] } { +eq+ [ 0 ] } { +gt+ [ right ] } } case
    ;