set-shaped-column-major ( obj seq shaped -- )


Vocabulary
arrays.shaped

Inputs
objan object
seqan object
shapedan object


Outputs
None

Definition
USING: accessors kernel sequences ;

IN: arrays.shaped

: set-shaped-column-major ( obj seq shaped -- )
shaped-bounds-check
[ shape calculate-column-major-index ] [ underlying>> ] bi
set-nth ;