compatible-dimensions? ( a b -- ? )

Vocabulary

arrays.shaped.private

Inputs

a	an object
b	an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel ;

IN: arrays.shaped.private

: compatible-dimensions? ( a b -- ? )
    { [ = ] [ drop 1 = ] [ nip 1 = ] } 2|| ;