diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-24 01:08:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-24 01:08:31 +0000 |
| commit | cef0dd1a5a078a0d8d6b635a2c247c81c00b2a12 (patch) | |
| tree | 30518cd65d39163d32898da36d58c925f58e270f /src/algebra/fraction.spad.pamphlet | |
| parent | 6a7022d0c0be54f3411ee07663765f60691c5f0c (diff) | |
| download | open-axiom-cef0dd1a5a078a0d8d6b635a2c247c81c00b2a12.tar.gz | |
* interp/compiler.boot (compOrCroak1): Drop last argument. Tidy.
(mostSpecificTriple): New.
(compAtomWithModemap): Use it to resolve ambiguous constants.
(formatConstantCandidates): New.
(compForm1): Do try to compile constants 0 and 1 with compToApply.
* algebra/polycat.spad.pamphlet (FiniteAbelianMonoidRing)
[binomThmExpt]: Tidy.
(UnivariatePolynomialCategory) [pseudoDivide]: Likewise.
* algebra/float.spad.pamphlet (Float) [log]: Specificy type for
local variable `l'.
* interp/format.boot (formatUnabbreviatedSig): Handle constants.
Diffstat (limited to 'src/algebra/fraction.spad.pamphlet')
| -rw-r--r-- | src/algebra/fraction.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/fraction.spad.pamphlet b/src/algebra/fraction.spad.pamphlet index 6fecb082..f7d5d6e0 100644 --- a/src/algebra/fraction.spad.pamphlet +++ b/src/algebra/fraction.spad.pamphlet @@ -543,7 +543,7 @@ Fraction(S: IntegralDomain): QuotientFieldCategory S with makeFR(map(#1::%/den1,unit(ff)),lfact) factorSquareFreePolynomial(pp) == zero? pp => 0 - degree pp = 0 => makeFR(pp,empty()) + zero? degree pp => makeFR(pp,empty()) lcpp:=leadingCoefficient pp pp:=pp/lcpp denpp:="lcm"/[denom u for u in coefficients pp] |