avl-delete-node ( 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

: avl-delete-node ( node -- node shorter? )
    dup leaf?
    [ drop f t ] [ left [ replace-with-a-child ] with-side ] if
    ;