1 files changed, 7 insertions, 7 deletions

diff --git a/lib/Numeric/LinearAlgebra/Real.hs b/lib/Numeric/LinearAlgebra/Real.hs
index 08a218c..8478ee7 100644
--- a/lib/Numeric/LinearAlgebra/Real.hs
+++ b/lib/Numeric/LinearAlgebra/Real.hs
@@ -88,19 +88,19 @@ ones :: Int -- ^ rows
 ones r c = konst 1 (r,c)
 
 -- | Concatenation of real vectors.
-infixl 9 #
+infixl 3 #
 (#) :: Vector Double -> Vector Double -> Vector Double
 a # b = join [a,b]
 
 -- | Horizontal concatenation of real matrices.
-infixl 8 &
-(&) :: Matrix Double -> Matrix Double -> Matrix Double
-a & b = fromBlocks [[a,b]]
+infixl 3 !
+(!) :: Matrix Double -> Matrix Double -> Matrix Double
+a ! b = fromBlocks [[a,b]]
 
 -- | Vertical concatenation of real matrices.
-(//) :: Matrix Double -> Matrix Double -> Matrix Double
-infixl 7  //
-a // b = fromBlocks [[a],[b]]
+(#) :: Matrix Double -> Matrix Double -> Matrix Double
+infixl 2 #
+a # b = fromBlocks [[a],[b]]
 
 
 -- | Real block matrix from a rectangular list of lists.