delete-node ( node -- node )

Vocabulary

trees.private

Inputs

node

an object

Outputs

node

an object

Definition

USING: accessors kernel ;

IN: trees.private

: delete-node ( node -- node )
    dup [ right>> ] [ left>> ] bi
    [ swap [ drop delete-node-with-two-children ] [ nip ] if ]
    [ nip ] if* ;