check-shape ( shaped-array shaped-array -- shaped-array shaped-array )


Vocabulary
arrays.shaped

Inputs
shaped-arrayan object
shaped-arrayan object


Outputs
shaped-arrayan object
shaped-arrayan object


Definition
USING: accessors kernel sequences ;

IN: arrays.shaped

: check-shape
( shaped-array shaped-array -- shaped-array shaped-array )
[ >shaped-array ] bi@ 2dup [ shape>> ] bi@ sequence=
[ shape-mismatch ] unless ;