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


Vocabulary
persistent.vectors.private

Inputs
ian object
nodean object


Outputs
ian 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 ;