(ppush-new-tail) ( tail node -- node' expansion/f )

Vocabulary

persistent.vectors.private

Inputs

tail	an object
node	an object

Outputs

node'	an object
expansion/f	an object

Definition

USING: accessors kernel sequences ;

IN: persistent.vectors.private

: (ppush-new-tail) ( tail node -- node' expansion/f )
    dup level>> 1 =
    [ new-child ] [
        [ nip ] 2keep children>> last (ppush-new-tail) or?
        [ swap new-child ] [ swap node-set-last f ] if
    ] if ;