math.blas.matrices: Fix for equal?

diff --git a/extra/math/blas/matrices/matrices-tests.factor b/extra/math/blas/matrices/matrices-tests.factor
index edb331d64124642a8b6b6137de311763b8468b73..e97a9a6252de07de5bccc5fac9762fe174e79cbe 100644 (file)
--- a/extra/math/blas/matrices/matrices-tests.factor
+++ b/extra/math/blas/matrices/matrices-tests.factor
@@ -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
\ No newline at end of file

diff --git a/extra/math/blas/matrices/matrices.factor b/extra/math/blas/matrices/matrices.factor
index 85df45a0939053ad993f0148687d73d1752e62d7..250d127d09b78d2851d7cdbd396faeacc7b1847b 100644 (file)
--- a/extra/math/blas/matrices/matrices.factor
+++ b/extra/math/blas/matrices/matrices.factor
@@ -241,6 +241,7 @@ M: blas-matrix-rowcol-sequence nth-unsafe
 
 M: blas-matrix-base equal?
     {
+        [ and ]
         [ [ Mwidth ] bi@ = ]
         [ [ Mcols ] bi@ [ = ] 2all? ]
     } 2&& ;