From 11eebf207528f86dfa4556be3b2cc7cba57244a6 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 13 Mar 2011 03:43:50 +0000
Subject: 	* src/algebra/: Systematically use not zero? when comparing
 for 	 equality with 0.

---
 src/algebra/gdpoly.spad.pamphlet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra/gdpoly.spad.pamphlet')

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"
-- 
cgit v1.2.3