replace-with-a-child ( node -- node shorter? )

Vocabulary

trees.avl.private

Inputs

node

an object

Outputs

node	an object
shorter?	an object

Definition

USING: kernel trees.private ;

IN: trees.avl.private

: replace-with-a-child ( node -- node shorter? )
    dup node-link [
        dupd [ avl-replace-with-extremity ] with-other-side
        [ over set-node-link ] dip [ balance-delete ] [ f ] if
    ] [ [ replace-with-a-child ] with-other-side ] if* ;