Vocabulary
sequences

Inputs and outputs

elt	an object
n	a non-negative integer
seq	a mutable sequence

Generic word contract
Sets the nth element of the sequence. Storing beyond the end of a resizable sequence such as a vector or string buffer grows the sequence.

Errors
Throws an error if the index is negative, or if the sequence is not resizable and the index is greater than or equal to the length of the sequence.

Throws an error if the sequence cannot hold elements of the given type.

Side effects
Modifies seq

Definition

IN: sequences

GENERIC: set-nth ( elt n seq -- )

Methods

USING: gap-buffer sequences sequences.private ;

M: gb set-nth bounds-check virtual@ set-nth-unsafe ;

USING: growable sequences sequences.private ;

M: growable set-nth ensure set-nth-unsafe ; inline

USING: sequences ;

M: immutable-sequence set-nth immutable ;

USING: accessors assocs game.models.util kernel locals sequences
;

M:: indexed-seq set-nth ( elt n seq -- )
seq dseq>> :> dseq seq iseq>> :> iseq seq rassoc>> :> rassoc
seq length n = not [ elt n seq immutable ] when
elt rassoc at
[ iseq push ] [
dseq length [ elt rassoc set-at ] [ iseq push ] bi
elt dseq push
] if* ; inline

USING: sequences sequences.modified ;

M: modified set-nth modified-set-nth ;

USING: sequences sequences.private ;

M: sequence set-nth bounds-check set-nth-unsafe ; inline

USING: accessors kernel sequences xml.data ;

M: tag set-nth [ children>> ] call \ set-nth execute ;

USING: sequences ;

M: virtual-sequence set-nth virtual@ set-nth ; inline

USING: accessors kernel sequences xml.data ;

M: xml-chunk set-nth [ seq>> ] call \ set-nth execute ;

USING: accessors kernel sequences xml.data ;

M: xml set-nth [ body>> ] call \ set-nth execute ;