delete-select-rotate ( node -- node shorter? )

Vocabulary

trees.avl.private

Inputs

node

an object

Outputs

node	an object
shorter?	an object

Definition

USING: accessors kernel math namespaces trees.private ;

IN: trees.avl.private

: delete-select-rotate ( node -- node shorter? )
    dup node+link balance>> zero? [
        current-side get neg >>balance
        current-side get over node+link balance<< rotate f
    ] [ select-rotate t ] if ;