diff options
Diffstat (limited to 'src/algebra/cden.spad.pamphlet')
| -rw-r--r-- | src/algebra/cden.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/cden.spad.pamphlet b/src/algebra/cden.spad.pamphlet index 0e7240cc..849d4c4c 100644 --- a/src/algebra/cden.spad.pamphlet +++ b/src/algebra/cden.spad.pamphlet @@ -185,9 +185,9 @@ MatrixCommonDenominator(R, Q): Exports == Implementation where [map(numer(d * #1), m), d] if R has GcdDomain then - commonDenominator m == lcm map(denom, parts m) + commonDenominator m == lcm map(denom, members m) else - commonDenominator m == reduce("*",map(denom, parts m),1)$List(R) + commonDenominator m == reduce("*",map(denom, members m),1)$List(R) @ \section{License} |