node-set ( value key node -- node new? )

Vocabulary

trees.private

Inputs

value	an object
key	an object
node	an object

Outputs

node	an object
new?	an object

Definition

USING: accessors kernel ;

IN: trees.private

: node-set ( value key node -- node new? )
    2dup key>> key-side dup 0 eq?
    [ drop nip swap >>value f ] [
        [
            [ node-link [ node-set ] [ swap <node> t ] if* ]
            keep swap [ [ set-node-link ] keep ] dip
        ] with-side
    ] if ;