aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/polset.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/polset.spad.pamphlet')
-rw-r--r--src/algebra/polset.spad.pamphlet4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/polset.spad.pamphlet b/src/algebra/polset.spad.pamphlet
index 2752335c..bcd9bfc3 100644
--- a/src/algebra/polset.spad.pamphlet
+++ b/src/algebra/polset.spad.pamphlet
@@ -268,10 +268,10 @@ PolynomialSetCategory(R:Ring, E:OrderedAbelianMonoidSup,_
r : R := 1$R
lp1 := sort(localInf?, reverse elements(ps))
lp2 := lp1
- e : Union(E, "failed")
while (not zero? a) and (not empty? lp2) repeat
p := first lp2
- if ((e:= subtractIfCan(degree(a),degree(p))) case E)
+ e := subtractIfCan(degree(a),degree(p))
+ if e case E
then
g := gcd((lca := leadingCoefficient(a)),(lcp := leadingCoefficient(p)))$R
(lca,lcp) := (exactQuo(lca,g),exactQuo(lcp,g))