check-shape ( shape -- shape )


Vocabulary
tensors.private

Inputs
shapean object


Outputs
shapean object


Definition
USING: kernel math sequences tensors ;

IN: tensors.private

: check-shape ( shape -- shape )
dup [ 1 < ] map-find drop [ non-positive-shape-error ] when
;