?m+ ( m1 m2 -- m3 )

Vocabulary

koszul

Inputs

m1	an object
m2	an object

Outputs

m3

an object

Definition

USING: kernel math.matrices ;

IN: koszul

: ?m+ ( m1 m2 -- m3 )
    over empty-matrix?
    [ nip ] [ dup empty-matrix? [ drop ] [ m+ ] if ] if ;