node-add ( val node -- node' )

Vocabulary

persistent.vectors.private

Inputs

val	an object
node	an object

Outputs

node'

an object

Definition

USING: accessors kernel persistent.sequences ;

IN: persistent.vectors.private

: node-add ( val node -- node' )
    clone [ ppush ] change-children ;