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/ffnb.spad.pamphlet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/algebra/ffnb.spad.pamphlet b/src/algebra/ffnb.spad.pamphlet
index 007f1efd..95b5c316 100644
--- a/src/algebra/ffnb.spad.pamphlet
+++ b/src/algebra/ffnb.spad.pamphlet
@@ -236,7 +236,7 @@ InnerNormalBasisFieldFunctions(GF): Exports == Implementation where
                     else erg:VGF:=plist.(first(l))
       i:SI:=k
       for j in rest(l) repeat
-        if j~=0 then erg:=erg *$$ qPot(plist.j,i)$$
+        if not zero? j then erg:=erg *$$ qPot(plist.j,i)$$
         i:=i+k
       erg
 
-- 
cgit v1.2.3