ppush-new-tail ( val pvec -- pvec' )

Vocabulary

persistent.vectors.private

Inputs

val	an object
pvec	an object

Outputs

pvec'

an object

Definition

USING: accessors kernel ;

IN: persistent.vectors.private

: ppush-new-tail ( val pvec -- pvec' )
    [ ] [ tail>> ] [ root>> ] tri (ppush-new-tail) do-expansion
    swap 0 1node >>tail ;