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 }
|
||||
} Mtranspose 2 1 3 2 Msub
|
||||
] 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?
|
||||
{
|
||||
[ and ]
|
||||
[ [ Mwidth ] bi@ = ]
|
||||
[ [ Mcols ] bi@ [ = ] 2all? ]
|
||||
} 2&& ;
|
||||
|
|
Loading…
Reference in New Issue