(new-nth) ( val i node -- node' ) - Factor Documentation

(new-nth) ( val i node -- node' )

Vocabulary
persistent.vectors.private

Inputs

val	an object
i	an object
node	an object

Outputs

node'

Definition

USING: accessors kernel ;

IN: persistent.vectors.private

: (new-nth) ( val i node -- node' )
dup level>> 0 =
[ [ node-mask ] dip node-set-nth ] [
[ dupd level>> node-shift node-mask ] keep
[ (new-nth) ] node-change-nth
] if ;