aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/polycat.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/polycat.spad.pamphlet')
-rw-r--r--src/algebra/polycat.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/polycat.spad.pamphlet b/src/algebra/polycat.spad.pamphlet
index 46cd1e87..4a6c5f5c 100644
--- a/src/algebra/polycat.spad.pamphlet
+++ b/src/algebra/polycat.spad.pamphlet
@@ -362,7 +362,7 @@ PolynomialCategory(R:Ring, E:OrderedAbelianMonoidSup, VarSet:OrderedSet):
-- zero? p => empty()
-- concat(leadingMonomial p, monomials reductum p)
-- replaced by sequential version for efficiency, by WMSIT, 7/30/90
- ml:= empty$List(%)
+ ml:= empty()$List(%)
while p ~= 0 repeat
ml:=concat(leadingMonomial p, ml)
p:= reductum p