(avl-delete) ( key node -- node shorter? deleted? )

Vocabulary

trees.avl.private

Inputs

key	an object
node	an object

Outputs

node	an object
shorter?	an object
deleted?	an object

Definition

USING: kernel trees.private ;

IN: trees.avl.private

: (avl-delete) ( key node -- node shorter? deleted? )
    tuck node-link avl-delete
    [ [ over set-node-link ] dip [ balance-delete ] [ f ] if ]
    dip ;