get-splay ( key tree: splay -- node ? )

Vocabulary

trees.splay.private

Inputs

key	an object
tree	a splay

Outputs

node	an object
?	an object

Definition

USING: accessors kernel math.order typed ;

IN: trees.splay.private

TYPED: get-splay ( key tree: splay -- node ? )
    2dup do-splay root>> cmp +eq+ = [ nip t ] [ 2drop f f ] if ;