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

Vocabulary
persistent.vectors

Definition

USING: accessors kernel ;

IN: persistent.vectors

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