node-change-nth ( i node quot -- node' )


Vocabulary
persistent.vectors.private

Inputs
ian object
nodean object
quotan object


Outputs
node'an object


Definition
USING: accessors kernel sequences ;

IN: persistent.vectors.private

: node-change-nth ( i node quot -- node' )
[ clone ] dip [ [ clone ] dip [ change-nth ] keepd ] curry
change-children ; inline