(prune-extremity) ( parent node -- new-extremity )

Vocabulary

trees.private

Inputs

parent	an object
node	an object

Outputs

new-extremity

an object

Definition

USING: kernel ;

IN: trees.private

: (prune-extremity) ( parent node -- new-extremity )
    dup node-link
    [ nipd (prune-extremity) ]
    [ [ delete-node swap set-node-link ] keep ] if* ;