clone-nodes ( node -- node' )

Vocabulary

trees.private

Inputs

node

an object

Outputs

node'

an object

Definition

USING: accessors kernel ;

IN: trees.private

: clone-nodes ( node -- node' )
    dup [
        clone [ clone-nodes ] change-left
        [ clone-nodes ] change-right
    ] when ;