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

Vocabulary

arrays.shaped

Inputs

obj	an object
seq	an object
shaped	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: arrays.shaped

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