new-child ( new-child node -- node' expansion/f )

Vocabulary

persistent.vectors.private

Inputs

new-child	an object
node	an object

Outputs

node'	an object
expansion/f	an object

Definition

USING: accessors kernel ;

IN: persistent.vectors.private

: new-child ( new-child node -- node' expansion/f )
    dup full? [ [ level>> 1node ] keep swap ] [ node-add f ] if
    ;