math.blas.matrices: Fix for equal?
parent
4f240e0d25
commit
42d84a4e29
|
@ -706,3 +706,12 @@ sequences tools.test ;
|
||||||
{ 2.0 3.0 0.0 1.0 0.0 }
|
{ 2.0 3.0 0.0 1.0 0.0 }
|
||||||
} Mtranspose 2 1 3 2 Msub
|
} Mtranspose 2 1 3 2 Msub
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
|
! Bugfix: blas-matrix-base did not handle `f smatrix{ } equal?`
|
||||||
|
{ f } [
|
||||||
|
f smatrix{
|
||||||
|
svector{ 1.0 2.0 3.0 4.0 }
|
||||||
|
svector{ 2.0 2.0 3.0 4.0 }
|
||||||
|
svector{ 3.0 2.0 3.0 4.0 }
|
||||||
|
} equal?
|
||||||
|
] unit-test
|
|
@ -241,6 +241,7 @@ M: blas-matrix-rowcol-sequence nth-unsafe
|
||||||
|
|
||||||
M: blas-matrix-base equal?
|
M: blas-matrix-base equal?
|
||||||
{
|
{
|
||||||
|
[ and ]
|
||||||
[ [ Mwidth ] bi@ = ]
|
[ [ Mwidth ] bi@ = ]
|
||||||
[ [ Mcols ] bi@ [ = ] 2all? ]
|
[ [ Mcols ] bi@ [ = ] 2all? ]
|
||||||
} 2&& ;
|
} 2&& ;
|
||||||
|
|
Loading…
Reference in New Issue