remove-splay ( key tree: splay -- )

Vocabulary

trees.splay.private

Inputs

key	an object
tree	a splay

Outputs

None

Definition

USING: accessors kernel trees.private typed ;

IN: trees.splay.private

TYPED: remove-splay ( key tree: splay -- )
    2dup get-splay [
        [ right>> ] [ left>> ] bi splay-join >>root dec-count
        drop
    ] [ 3drop ] if ;