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: kernel ;

IN: trees.avl.private

: avl-set ( value key node -- node taller? created? )
    [ (avl-set) ] [ swap <avl-node> t t ] if* ;