do-splay ( key tree: splay -- )

Vocabulary

trees.splay.private

Inputs

key	an object
tree	a splay

Outputs

None

Definition

USING: accessors kernel typed ;

IN: trees.splay.private

TYPED: do-splay ( key tree: splay -- )
    [ root>> splay-at ] keep root<< ;