diff options
author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-17 22:53:01 -0800 |
---|---|---|
committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-17 22:53:01 -0800 |
commit | d07fc9735f40e545edda456e15dbab783c500f6a (patch) | |
tree | 4d9fab82a7085b73a4b00d23389935503fdfc90d /src/algebra/updivp.spad.pamphlet | |
parent | 5437d438937eb25eb320fef6e4fd6ebc91ca6dc9 (diff) | |
download | open-axiom-d07fc9735f40e545edda456e15dbab783c500f6a.tar.gz |
subtractIfCan$CancellationAbelianMonoid: return the more principled Maybe %
Diffstat (limited to 'src/algebra/updivp.spad.pamphlet')
-rw-r--r-- | src/algebra/updivp.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/updivp.spad.pamphlet b/src/algebra/updivp.spad.pamphlet index efeb3cca..0ceeefb3 100644 --- a/src/algebra/updivp.spad.pamphlet +++ b/src/algebra/updivp.spad.pamphlet @@ -43,7 +43,7 @@ UnivariatePolynomialDivisionPackage(R,UP): Exports == Implementation where zero? p2 => error "divideIfCan: division by zero" one? (lc := leadingCoefficient p2) => monicDivide(p1,p2) q: UP := 0 - while not ((e := subtractIfCan(degree(p1),degree(p2))) case "failed") + while not ((e := subtractIfCan(degree(p1),degree(p2))) case nothing) repeat c := leadingCoefficient(p1) exquo lc c case "failed" => return "failed" |