factor: add newlines to .factor files

[factor.git] / extra / math / blas / matrices / matrices-tests.factor

diff --git a/extra/math/blas/matrices/matrices-tests.factor b/extra/math/blas/matrices/matrices-tests.factor
index cf0c25745edca30dbd05c673f41fda43a1411f9e..0383af9063c6105ae549136e530c1b044aac81f9 100644 (file)
--- a/extra/math/blas/matrices/matrices-tests.factor
+++ b/extra/math/blas/matrices/matrices-tests.factor
@@ -1,21 +1,20 @@
 USING: kernel math.blas.matrices math.blas.vectors
 sequences tools.test ;
-IN: math.blas.matrices.tests
 
 ! clone
 
-[ smatrix{
+{ smatrix{
     { 1.0 2.0 3.0 }
     { 4.0 5.0 6.0 }
     { 7.0 8.0 9.0 }
-} ] [
+} } [
     smatrix{
         { 1.0 2.0 3.0 }
         { 4.0 5.0 6.0 }
         { 7.0 8.0 9.0 }
     } clone
 ] unit-test
-[ f ] [
+{ f } [
     smatrix{
         { 1.0 2.0 3.0 }
         { 4.0 5.0 6.0 }
@@ -23,18 +22,18 @@ IN: math.blas.matrices.tests
     } dup clone eq?
 ] unit-test
 
-[ dmatrix{
+{ dmatrix{
     { 1.0 2.0 3.0 }
     { 4.0 5.0 6.0 }
     { 7.0 8.0 9.0 }
-} ] [
+} } [
     dmatrix{
         { 1.0 2.0 3.0 }
         { 4.0 5.0 6.0 }
         { 7.0 8.0 9.0 }
     } clone
 ] unit-test
-[ f ] [
+{ f } [
     dmatrix{
         { 1.0 2.0 3.0 }
         { 4.0 5.0 6.0 }
@@ -42,18 +41,18 @@ IN: math.blas.matrices.tests
     } dup clone eq?
 ] unit-test
 
-[ cmatrix{
+{ cmatrix{
     { C{ 1.0 1.0 } 2.0          3.0          }
     { 4.0          C{ 5.0 2.0 } 6.0          }
     { 7.0          8.0          C{ 9.0 3.0 } }
-} ] [
+} } [
     cmatrix{
         { C{ 1.0 1.0 } 2.0          3.0          }
         { 4.0          C{ 5.0 2.0 } 6.0          }
         { 7.0          8.0          C{ 9.0 3.0 } }
     } clone
 ] unit-test
-[ f ] [
+{ f } [
     cmatrix{
         { C{ 1.0 1.0 } 2.0          3.0          }
         { 4.0          C{ 5.0 2.0 } 6.0          }
@@ -61,18 +60,18 @@ IN: math.blas.matrices.tests
     } dup clone eq?
 ] unit-test
 
-[ zmatrix{
+{ zmatrix{
     { C{ 1.0 1.0 } 2.0          3.0          }
     { 4.0          C{ 5.0 2.0 } 6.0          }
     { 7.0          8.0          C{ 9.0 3.0 } }
-} ] [
+} } [
     zmatrix{
         { C{ 1.0 1.0 } 2.0          3.0          }
         { 4.0          C{ 5.0 2.0 } 6.0          }
         { 7.0          8.0          C{ 9.0 3.0 } }
     } clone
 ] unit-test
-[ f ] [
+{ f } [
     zmatrix{
         { C{ 1.0 1.0 } 2.0          3.0          }
         { 4.0          C{ 5.0 2.0 } 6.0          }
@@ -82,7 +81,7 @@ IN: math.blas.matrices.tests
 
 ! M.V
 
-[ svector{ 3.0 1.0 6.0 } ] [
+{ svector{ 3.0 1.0 6.0 } } [
     smatrix{
         {  0.0 1.0 0.0 1.0 }
         { -1.0 0.0 0.0 2.0 }
@@ -90,8 +89,8 @@ IN: math.blas.matrices.tests
     }
     svector{ 1.0 2.0 3.0 1.0 }
     M.V
-] unit-test 
-[ svector{ -2.0 1.0 3.0 14.0 } ] [
+] unit-test
+{ svector{ -2.0 1.0 3.0 14.0 } } [
     smatrix{
         {  0.0 1.0 0.0 1.0 }
         { -1.0 0.0 0.0 2.0 }
@@ -99,9 +98,9 @@ IN: math.blas.matrices.tests
     } Mtranspose
     svector{ 1.0 2.0 3.0 }
     M.V
-] unit-test 
+] unit-test
 
-[ dvector{ 3.0 1.0 6.0 } ] [
+{ dvector{ 3.0 1.0 6.0 } } [
     dmatrix{
         {  0.0 1.0 0.0 1.0 }
         { -1.0 0.0 0.0 2.0 }
@@ -109,8 +108,8 @@ IN: math.blas.matrices.tests
     }
     dvector{ 1.0 2.0 3.0 1.0 }
     M.V
-] unit-test 
-[ dvector{ -2.0 1.0 3.0 14.0 } ] [
+] unit-test
+{ dvector{ -2.0 1.0 3.0 14.0 } } [
     dmatrix{
         {  0.0 1.0 0.0 1.0 }
         { -1.0 0.0 0.0 2.0 }
@@ -118,9 +117,9 @@ IN: math.blas.matrices.tests
     } Mtranspose
     dvector{ 1.0 2.0 3.0 }
     M.V
-] unit-test 
+] unit-test
 
-[ cvector{ 3.0 C{ 1.0 2.0 } 6.0 } ] [
+{ cvector{ 3.0 C{ 1.0 2.0 } 6.0 } } [
     cmatrix{
         {  0.0 1.0          0.0 1.0 }
         { -1.0 C{ 0.0 1.0 } 0.0 2.0 }
@@ -128,8 +127,8 @@ IN: math.blas.matrices.tests
     }
     cvector{ 1.0 2.0 3.0 1.0 }
     M.V
-] unit-test 
-[ cvector{ -2.0 C{ 1.0 2.0 } 3.0 14.0 } ] [
+] unit-test
+{ cvector{ -2.0 C{ 1.0 2.0 } 3.0 14.0 } } [
     cmatrix{
         {  0.0 1.0          0.0 1.0 }
         { -1.0 C{ 0.0 1.0 } 0.0 2.0 }
@@ -137,9 +136,9 @@ IN: math.blas.matrices.tests
     } Mtranspose
     cvector{ 1.0 2.0 3.0 }
     M.V
-] unit-test 
+] unit-test
 
-[ zvector{ 3.0 C{ 1.0 2.0 } 6.0 } ] [
+{ zvector{ 3.0 C{ 1.0 2.0 } 6.0 } } [
     zmatrix{
         {  0.0 1.0          0.0 1.0 }
         { -1.0 C{ 0.0 1.0 } 0.0 2.0 }
@@ -148,7 +147,7 @@ IN: math.blas.matrices.tests
     zvector{ 1.0 2.0 3.0 1.0 }
     M.V
 ] unit-test
-[ zvector{ -2.0 C{ 1.0 2.0 } 3.0 14.0 } ] [
+{ zvector{ -2.0 C{ 1.0 2.0 } 3.0 14.0 } } [
     zmatrix{
         {  0.0 1.0          0.0 1.0 }
         { -1.0 C{ 0.0 1.0 } 0.0 2.0 }
@@ -156,50 +155,50 @@ IN: math.blas.matrices.tests
     } Mtranspose
     zvector{ 1.0 2.0 3.0 }
     M.V
-] unit-test 
+] unit-test
 
 ! V(*)
 
-[ smatrix{
+{ smatrix{
     { 1.0 2.0 3.0  4.0 }
     { 2.0 4.0 6.0  8.0 }
     { 3.0 6.0 9.0 12.0 }
-} ] [
+} } [
     svector{ 1.0 2.0 3.0 } svector{ 1.0 2.0 3.0 4.0 } V(*)
 ] unit-test
 
-[ dmatrix{
+{ dmatrix{
     { 1.0 2.0 3.0  4.0 }
     { 2.0 4.0 6.0  8.0 }
     { 3.0 6.0 9.0 12.0 }
-} ] [
+} } [
     dvector{ 1.0 2.0 3.0 } dvector{ 1.0 2.0 3.0 4.0 } V(*)
 ] unit-test
 
-[ cmatrix{
+{ cmatrix{
     { 1.0          2.0          C{ 3.0 -3.0 } 4.0            }
     { 2.0          4.0          C{ 6.0 -6.0 } 8.0            }
     { C{ 3.0 3.0 } C{ 6.0 6.0 } 18.0          C{ 12.0 12.0 } }
-} ] [
+} } [
     cvector{ 1.0 2.0 C{ 3.0 3.0 } } cvector{ 1.0 2.0 C{ 3.0 -3.0 } 4.0 } V(*)
 ] unit-test
 
-[ zmatrix{
+{ zmatrix{
     { 1.0          2.0          C{ 3.0 -3.0 } 4.0            }
     { 2.0          4.0          C{ 6.0 -6.0 } 8.0            }
     { C{ 3.0 3.0 } C{ 6.0 6.0 } 18.0          C{ 12.0 12.0 } }
-} ] [
+} } [
     zvector{ 1.0 2.0 C{ 3.0 3.0 } } zvector{ 1.0 2.0 C{ 3.0 -3.0 } 4.0 } V(*)
 ] unit-test
 
 ! M.
 
-[ smatrix{
+{ smatrix{
     { 1.0 0.0  0.0 4.0  0.0 }
     { 0.0 0.0 -3.0 0.0  0.0 }
     { 0.0 4.0  0.0 0.0 10.0 }
     { 0.0 0.0  0.0 0.0  0.0 }
-} ] [
+} } [
     smatrix{
         { 1.0 0.0  0.0 }
         { 0.0 0.0 -1.0 }
@@ -212,13 +211,13 @@ IN: math.blas.matrices.tests
     } M.
 ] unit-test
 
-[ smatrix{
+{ smatrix{
     { 1.0  0.0  0.0 0.0 }
     { 0.0  0.0  4.0 0.0 }
     { 0.0 -3.0  0.0 0.0 }
     { 4.0  0.0  0.0 0.0 }
     { 0.0  0.0 10.0 0.0 }
-} ] [
+} } [
     smatrix{
         { 1.0 0.0 0.0 4.0 0.0 }
         { 0.0 2.0 0.0 0.0 5.0 }
@@ -231,12 +230,12 @@ IN: math.blas.matrices.tests
     } Mtranspose M.
 ] unit-test
 
-[ dmatrix{
+{ dmatrix{
     { 1.0 0.0  0.0 4.0  0.0 }
     { 0.0 0.0 -3.0 0.0  0.0 }
     { 0.0 4.0  0.0 0.0 10.0 }
     { 0.0 0.0  0.0 0.0  0.0 }
-} ] [
+} } [
     dmatrix{
         { 1.0 0.0  0.0 }
         { 0.0 0.0 -1.0 }
@@ -249,13 +248,13 @@ IN: math.blas.matrices.tests
     } M.
 ] unit-test
 
-[ dmatrix{
+{ dmatrix{
     { 1.0  0.0  0.0 0.0 }
     { 0.0  0.0  4.0 0.0 }
     { 0.0 -3.0  0.0 0.0 }
     { 4.0  0.0  0.0 0.0 }
     { 0.0  0.0 10.0 0.0 }
-} ] [
+} } [
     dmatrix{
         { 1.0 0.0 0.0 4.0 0.0 }
         { 0.0 2.0 0.0 0.0 5.0 }
@@ -268,12 +267,12 @@ IN: math.blas.matrices.tests
     } Mtranspose M.
 ] unit-test
 
-[ cmatrix{
+{ cmatrix{
     { 1.0 0.0            0.0 4.0  0.0 }
     { 0.0 0.0           -3.0 0.0  0.0 }
     { 0.0 C{ 4.0 -4.0 }  0.0 0.0 10.0 }
     { 0.0 0.0            0.0 0.0  0.0 }
-} ] [
+} } [
     cmatrix{
         { 1.0 0.0  0.0 }
         { 0.0 0.0 -1.0 }
@@ -286,13 +285,13 @@ IN: math.blas.matrices.tests
     } M.
 ] unit-test
 
-[ cmatrix{
+{ cmatrix{
     { 1.0  0.0  0.0          0.0 }
     { 0.0  0.0 C{ 4.0 -4.0 } 0.0 }
     { 0.0 -3.0  0.0          0.0 }
     { 4.0  0.0  0.0          0.0 }
     { 0.0  0.0 10.0          0.0 }
-} ] [
+} } [
     cmatrix{
         { 1.0 0.0           0.0 4.0 0.0 }
         { 0.0 C{ 2.0 -2.0 } 0.0 0.0 5.0 }
@@ -305,12 +304,12 @@ IN: math.blas.matrices.tests
     } Mtranspose M.
 ] unit-test
 
-[ zmatrix{
+{ zmatrix{
     { 1.0 0.0            0.0 4.0  0.0 }
     { 0.0 0.0           -3.0 0.0  0.0 }
     { 0.0 C{ 4.0 -4.0 }  0.0 0.0 10.0 }
     { 0.0 0.0            0.0 0.0  0.0 }
-} ] [
+} } [
     zmatrix{
         { 1.0 0.0  0.0 }
         { 0.0 0.0 -1.0 }
@@ -323,13 +322,13 @@ IN: math.blas.matrices.tests
     } M.
 ] unit-test
 
-[ zmatrix{
+{ zmatrix{
     { 1.0  0.0  0.0          0.0 }
     { 0.0  0.0 C{ 4.0 -4.0 } 0.0 }
     { 0.0 -3.0  0.0          0.0 }
     { 4.0  0.0  0.0          0.0 }
     { 0.0  0.0 10.0          0.0 }
-} ] [
+} } [
     zmatrix{
         { 1.0 0.0           0.0 4.0 0.0 }
         { 0.0 C{ 2.0 -2.0 } 0.0 0.0 5.0 }
@@ -344,40 +343,40 @@ IN: math.blas.matrices.tests
 
 ! n*M
 
-[ smatrix{
+{ smatrix{
     { 2.0 0.0 }
     { 0.0 2.0 }
-} ] [
+} } [
     2.0 smatrix{
         { 1.0 0.0 }
         { 0.0 1.0 }
     } n*M
 ] unit-test
 
-[ dmatrix{
+{ dmatrix{
     { 2.0 0.0 }
     { 0.0 2.0 }
-} ] [
+} } [
     2.0 dmatrix{
         { 1.0 0.0 }
         { 0.0 1.0 }
     } n*M
 ] unit-test
 
-[ cmatrix{
+{ cmatrix{
     { C{ 2.0 1.0 } 0.0           }
     { 0.0          C{ -1.0 2.0 } }
-} ] [
+} } [
     C{ 2.0 1.0 } cmatrix{
         { 1.0 0.0          }
         { 0.0 C{ 0.0 1.0 } }
     } n*M
 ] unit-test
 
-[ zmatrix{
+{ zmatrix{
     { C{ 2.0 1.0 } 0.0           }
     { 0.0          C{ -1.0 2.0 } }
-} ] [
+} } [
     C{ 2.0 1.0 } zmatrix{
         { 1.0 0.0          }
         { 0.0 C{ 0.0 1.0 } }
@@ -386,56 +385,56 @@ IN: math.blas.matrices.tests
 
 ! Mrows, Mcols
 
-[ svector{ 3.0 3.0 3.0 } ] [
+{ svector{ 3.0 3.0 3.0 } } [
     2 smatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mcols nth
 ] unit-test
-[ svector{ 3.0 2.0 3.0 4.0 } ] [
+{ svector{ 3.0 2.0 3.0 4.0 } } [
     2 smatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mrows nth
 ] unit-test
-[ 3 ] [
+{ 3 } [
     smatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mrows length
 ] unit-test
-[ 4 ] [
+{ 4 } [
     smatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mcols length
 ] unit-test
-[ svector{ 3.0 3.0 3.0 } ] [
+{ svector{ 3.0 3.0 3.0 } } [
     2 smatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mtranspose Mrows nth
 ] unit-test
-[ svector{ 3.0 2.0 3.0 4.0 } ] [
+{ svector{ 3.0 2.0 3.0 4.0 } } [
     2 smatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mtranspose Mcols nth
 ] unit-test
-[ 3 ] [
+{ 3 } [
     smatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mtranspose Mcols length
 ] unit-test
-[ 4 ] [
+{ 4 } [
     smatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
@@ -443,56 +442,56 @@ IN: math.blas.matrices.tests
     } Mtranspose Mrows length
 ] unit-test
 
-[ dvector{ 3.0 3.0 3.0 } ] [
+{ dvector{ 3.0 3.0 3.0 } } [
     2 dmatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mcols nth
 ] unit-test
-[ dvector{ 3.0 2.0 3.0 4.0 } ] [
+{ dvector{ 3.0 2.0 3.0 4.0 } } [
     2 dmatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mrows nth
 ] unit-test
-[ 3 ] [
+{ 3 } [
     dmatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mrows length
 ] unit-test
-[ 4 ] [
+{ 4 } [
     dmatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mcols length
 ] unit-test
-[ dvector{ 3.0 3.0 3.0 } ] [
+{ dvector{ 3.0 3.0 3.0 } } [
     2 dmatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mtranspose Mrows nth
 ] unit-test
-[ dvector{ 3.0 2.0 3.0 4.0 } ] [
+{ dvector{ 3.0 2.0 3.0 4.0 } } [
     2 dmatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mtranspose Mcols nth
 ] unit-test
-[ 3 ] [
+{ 3 } [
     dmatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
         { 3.0 2.0 3.0 4.0 }
     } Mtranspose Mcols length
 ] unit-test
-[ 4 ] [
+{ 4 } [
     dmatrix{
         { 1.0 2.0 3.0 4.0 }
         { 2.0 2.0 3.0 4.0 }
@@ -500,56 +499,56 @@ IN: math.blas.matrices.tests
     } Mtranspose Mrows length
 ] unit-test
 
-[ cvector{ C{ 3.0 1.0 } C{ 3.0 2.0 } C{ 3.0 3.0 } } ] [
+{ cvector{ C{ 3.0 1.0 } C{ 3.0 2.0 } C{ 3.0 3.0 } } } [
     2 cmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mcols nth
 ] unit-test
-[ cvector{ C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } } ] [
+{ cvector{ C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } } } [
     2 cmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mrows nth
 ] unit-test
-[ 3 ] [
+{ 3 } [
     cmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mrows length
 ] unit-test
-[ 4 ] [
+{ 4 } [
     cmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mcols length
 ] unit-test
-[ cvector{ C{ 3.0 1.0 } C{ 3.0 2.0 } C{ 3.0 3.0 } } ] [
+{ cvector{ C{ 3.0 1.0 } C{ 3.0 2.0 } C{ 3.0 3.0 } } } [
     2 cmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mtranspose Mrows nth
 ] unit-test
-[ cvector{ C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } } ] [
+{ cvector{ C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } } } [
     2 cmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mtranspose Mcols nth
 ] unit-test
-[ 3 ] [
+{ 3 } [
     cmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mtranspose Mcols length
 ] unit-test
-[ 4 ] [
+{ 4 } [
     cmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
@@ -557,56 +556,56 @@ IN: math.blas.matrices.tests
     } Mtranspose Mrows length
 ] unit-test
 
-[ zvector{ C{ 3.0 1.0 } C{ 3.0 2.0 } C{ 3.0 3.0 } } ] [
+{ zvector{ C{ 3.0 1.0 } C{ 3.0 2.0 } C{ 3.0 3.0 } } } [
     2 zmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mcols nth
 ] unit-test
-[ zvector{ C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } } ] [
+{ zvector{ C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } } } [
     2 zmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mrows nth
 ] unit-test
-[ 3 ] [
+{ 3 } [
     zmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mrows length
 ] unit-test
-[ 4 ] [
+{ 4 } [
     zmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mcols length
 ] unit-test
-[ zvector{ C{ 3.0 1.0 } C{ 3.0 2.0 } C{ 3.0 3.0 } } ] [
+{ zvector{ C{ 3.0 1.0 } C{ 3.0 2.0 } C{ 3.0 3.0 } } } [
     2 zmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mtranspose Mrows nth
 ] unit-test
-[ zvector{ C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } } ] [
+{ zvector{ C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } } } [
     2 zmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mtranspose Mcols nth
 ] unit-test
-[ 3 ] [
+{ 3 } [
     zmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
         { C{ 1.0 3.0 } C{ 2.0 3.0 } C{ 3.0 3.0 } C{ 4.0 3.0 } }
     } Mtranspose Mcols length
 ] unit-test
-[ 4 ] [
+{ 4 } [
     zmatrix{
         { C{ 1.0 1.0 } C{ 2.0 1.0 } C{ 3.0 1.0 } C{ 4.0 1.0 } }
         { C{ 1.0 2.0 } C{ 2.0 2.0 } C{ 3.0 2.0 } C{ 4.0 2.0 } }
@@ -616,10 +615,10 @@ IN: math.blas.matrices.tests
 
 ! Msub
 
-[ smatrix{
+{ smatrix{
     { 3.0 2.0 1.0 }
     { 0.0 1.0 0.0 }
-} ] [
+} } [
     smatrix{
         { 0.0 1.0 2.0 3.0 2.0 }
         { 1.0 0.0 3.0 2.0 1.0 }
@@ -627,11 +626,11 @@ IN: math.blas.matrices.tests
     } 1 2 2 3 Msub
 ] unit-test
 
-[ smatrix{
+{ smatrix{
     { 3.0 0.0 }
     { 2.0 1.0 }
     { 1.0 0.0 }
-} ] [
+} } [
     smatrix{
         { 0.0 1.0 2.0 3.0 2.0 }
         { 1.0 0.0 3.0 2.0 1.0 }
@@ -639,10 +638,10 @@ IN: math.blas.matrices.tests
     } Mtranspose 2 1 3 2 Msub
 ] unit-test
 
-[ dmatrix{
+{ dmatrix{
     { 3.0 2.0 1.0 }
     { 0.0 1.0 0.0 }
-} ] [
+} } [
     dmatrix{
         { 0.0 1.0 2.0 3.0 2.0 }
         { 1.0 0.0 3.0 2.0 1.0 }
@@ -650,11 +649,11 @@ IN: math.blas.matrices.tests
     } 1 2 2 3 Msub
 ] unit-test
 
-[ dmatrix{
+{ dmatrix{
     { 3.0 0.0 }
     { 2.0 1.0 }
     { 1.0 0.0 }
-} ] [
+} } [
     dmatrix{
         { 0.0 1.0 2.0 3.0 2.0 }
         { 1.0 0.0 3.0 2.0 1.0 }
@@ -662,10 +661,10 @@ IN: math.blas.matrices.tests
     } Mtranspose 2 1 3 2 Msub
 ] unit-test
 
-[ cmatrix{
+{ cmatrix{
     { C{ 3.0 3.0 } 2.0 1.0 }
     { 0.0          1.0 0.0 }
-} ] [
+} } [
     cmatrix{
         { 0.0 1.0 2.0          3.0 2.0 }
         { 1.0 0.0 C{ 3.0 3.0 } 2.0 1.0 }
@@ -673,11 +672,11 @@ IN: math.blas.matrices.tests
     } 1 2 2 3 Msub
 ] unit-test
 
-[ cmatrix{
+{ cmatrix{
     { C{ 3.0 3.0 } 0.0 }
     { 2.0          1.0 }
     { 1.0          0.0 }
-} ] [
+} } [
     cmatrix{
         { 0.0 1.0 2.0          3.0 2.0 }
         { 1.0 0.0 C{ 3.0 3.0 } 2.0 1.0 }
@@ -685,10 +684,10 @@ IN: math.blas.matrices.tests
     } Mtranspose 2 1 3 2 Msub
 ] unit-test
 
-[ zmatrix{
+{ zmatrix{
     { C{ 3.0 3.0 } 2.0 1.0 }
     { 0.0          1.0 0.0 }
-} ] [
+} } [
     zmatrix{
         { 0.0 1.0 2.0          3.0 2.0 }
         { 1.0 0.0 C{ 3.0 3.0 } 2.0 1.0 }
@@ -696,11 +695,11 @@ IN: math.blas.matrices.tests
     } 1 2 2 3 Msub
 ] unit-test
 
-[ zmatrix{
+{ zmatrix{
     { C{ 3.0 3.0 } 0.0 }
     { 2.0          1.0 }
     { 1.0          0.0 }
-} ] [
+} } [
     zmatrix{
         { 0.0 1.0 2.0          3.0 2.0 }
         { 1.0 0.0 C{ 3.0 3.0 } 2.0 1.0 }
@@ -708,3 +707,12 @@ IN: math.blas.matrices.tests
     } 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
+