delete-bst-node ( key node -- node deleted? )

Vocabulary

trees.private

Inputs

key	an object
node	an object

Outputs

node	an object
deleted?	an object

Definition

USING: accessors kernel ;

IN: trees.private

: delete-bst-node ( key node -- node deleted? )
    2dup key>> key-side dup 0 eq?
    [ drop nip delete-node t ] [
        [
            [ node-link delete-bst-node ]
            [ swap [ set-node-link ] dip ] [ swap ] tri
        ] with-side
    ] if ;