body-nth ( i node -- i node' )

Vocabulary

persistent.vectors.private

Inputs

i	an object
node	an object

Outputs

i	an object
node'	an object

Definition

USING: accessors kernel math ;

IN: persistent.vectors.private

: body-nth ( i node -- i node' )
    dup level>>
    [ dupd [ level>> node-shift ] keep node-nth ] times ;