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

Vocabulary
trees.splay.private

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
    ;