avl-replace-with-extremity ( to-replace node -- node shorter? )

Vocabulary

trees.avl.private

Inputs

to-replace	an object
node	an object

Outputs

node	an object
shorter?	an object

Definition

USING: kernel trees.private ;

IN: trees.avl.private

: avl-replace-with-extremity
    ( to-replace node -- node shorter? )
    dup node-link [
        swapd avl-replace-with-extremity
        [ over set-node-link ] dip [ balance-delete ] [ f ] if
    ] [ [ copy-node-contents drop ] keep node+link t ] if* ;