steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.blas.matrices: Fix for equal?

freebsd-work
Doug Coleman 2019-01-19 10:06:35 -06:00
parent 4f240e0d25
commit 42d84a4e29
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/math/blas/matrices/matrices-tests.factor
View File

@ -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

1
extra/math/blas/matrices/matrices.factor
View File

@ -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&& ;