do-expansion ( pvec root expansion/f -- pvec )

Vocabulary

persistent.vectors.private

Inputs

pvec	an object
root	an object
expansion/f	an object

Outputs

pvec

an object

Definition

USING: accessors kernel ;

IN: persistent.vectors.private

: do-expansion ( pvec root expansion/f -- pvec )
    [ 2node ] when* >>root ;