(avl-set) ( value key node -- node taller? created? )

Vocabulary

trees.avl.private

Inputs

value	an object
key	an object
node	an object

Outputs

node	an object
taller?	an object
created?	an object

Definition

USING: accessors kernel ;

IN: trees.avl.private

: (avl-set) ( value key node -- node taller? created? )
    2dup key>> =
    [ -rot pick key<< >>value f f ] [ avl-insert ] if ;