aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/gdpoly.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/gdpoly.spad.pamphlet')
-rw-r--r--src/algebra/gdpoly.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/gdpoly.spad.pamphlet b/src/algebra/gdpoly.spad.pamphlet
index 2a212926..e477aa04 100644
--- a/src/algebra/gdpoly.spad.pamphlet
+++ b/src/algebra/gdpoly.spad.pamphlet
@@ -148,7 +148,7 @@ GeneralDistributedMultivariatePolynomial(vl,R,E): public == private where
p := reductum p
for i in 1..n repeat
maxdeg.i := max(maxdeg.i, tdeg.i)
- [index(i:PositiveInteger) for i in 1..n | maxdeg.i~=0]
+ [index(i:PositiveInteger) for i in 1..n | not zero? maxdeg.i]
reorder(p: %,perm: List Integer):% ==
#perm ~= n => error "must be a complete permutation of all vars"