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

IN: trees.avl.private

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

Methods

USING: accessors kernel math trees.avl.private trees.private ;

M: avl-node avl-delete
    2dup key>> key-side
    [ nip avl-delete-node t ] [ [ (avl-delete) ] with-side ]
    if-zero ;


USING: kernel trees.avl.private ;

M: f avl-delete nip f f ;