diff options
Diffstat (limited to 'src/algebra/matrix.spad.pamphlet')
| -rw-r--r-- | src/algebra/matrix.spad.pamphlet | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/algebra/matrix.spad.pamphlet b/src/algebra/matrix.spad.pamphlet index d017dc19..a456deec 100644 --- a/src/algebra/matrix.spad.pamphlet +++ b/src/algebra/matrix.spad.pamphlet @@ -249,7 +249,7 @@ Matrix(R): Exports == Implementation where if R has ConvertibleTo InputForm then convert(x:$):InputForm == - convert [convert("matrix"::Symbol)@InputForm, + convert [convert('matrix)@InputForm, convert listOfLists x]$List(InputForm) @ @@ -336,7 +336,7 @@ RectangularMatrix(m,n,R): Exports == Implementation where if R has ConvertibleTo InputForm then convert(x:$):InputForm == - convert [convert("rectangularMatrix"::Symbol)@InputForm, + convert [convert('rectangularMatrix)@InputForm, convert(x::Matrix(R))]$List(InputForm) @ @@ -478,7 +478,7 @@ SquareMatrix(ndim,R): Exports == Implementation where if R has ConvertibleTo InputForm then convert(x:$):InputForm == - convert [convert("squareMatrix"::Symbol)@InputForm, + convert [convert('squareMatrix)@InputForm, convert(rep x)@InputForm]$List(InputForm) @@ -487,6 +487,8 @@ SquareMatrix(ndim,R): Exports == Implementation where <<license>>= --Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. --All rights reserved. +--Copyright (C) 2007-2009, Gabriel Dos Reis. +--All rights reserved. -- --Redistribution and use in source and binary forms, with or without --modification, are permitted provided that the following conditions are |