new-root ( value key tree: splay -- )

Vocabulary

trees.splay.private

Inputs

value	an object
key	an object
tree	a splay

Outputs

None

Definition

USING: accessors kernel trees.private typed ;

IN: trees.splay.private

TYPED: new-root ( value key tree: splay -- )
    [ swap <node> ] [ 1 >>count root<< ] bi* ;