check-dimensions ( d d -- )


Vocabulary
units

Inputs
dan object
dan object


Outputs
None

Definition
USING: arrays kernel ;

IN: units

: check-dimensions ( d d -- )
[ dimensions 2array ] same? [ dimensions-not-equal ] unless
;