check-2d ( shaped -- shaped )


Vocabulary
arrays.shaped

Inputs
shapedan object


Outputs
shapedan object


Definition
USING: accessors kernel ;

IN: arrays.shaped

: check-2d ( shaped -- shaped )
dup shape>> 2d? [ 2d-expected ] unless ;