copy-node-contents ( new old -- new )

Vocabulary

trees.private

Inputs

new	an object
old	an object

Outputs

new

an object

Definition

USING: accessors kernel ;

IN: trees.private

: copy-node-contents ( new old -- new )
    [ key>> >>key ] [ value>> >>value ] bi ;