lcmp ( key node -- key node <=> )


Vocabulary
trees.splay.private

Inputs
keyan object
nodean object


Outputs
keyan object
nodean object
<=>an object


Definition
USING: accessors kernel math.order ;

IN: trees.splay.private

: lcmp ( key node -- key node <=> ) 2dup left>> key>> <=> ;
inline