From 001e19b08ba7fb1b9e6f6bdb44a82ba3db3fc532 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 3 Apr 2008 04:23:42 +0000
Subject: Replace `^=' with `~='.

---
 src/algebra/taylor.spad.pamphlet | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/algebra/taylor.spad.pamphlet b/src/algebra/taylor.spad.pamphlet
index 7fa64c04..2005597a 100644
--- a/src/algebra/taylor.spad.pamphlet
+++ b/src/algebra/taylor.spad.pamphlet
@@ -97,7 +97,7 @@ InnerTaylorSeries(Coef): Exports == Implementation where
       n : I := _$streamCount$Lisp
       for i in 0..n repeat
         empty? st => return true
-        frst st ^= 0 => return false
+        frst st ~= 0 => return false
         st := rst st
       empty? st
 
@@ -332,7 +332,7 @@ UnivariateTaylorSeries(Coef,var,cen): Exports == Implementation where
        while not empty? u and n > 0 repeat
          u := rst u
          n := (n - 1) :: NNI
-       empty? u or n ^= 0 => 0
+       empty? u or n ~= 0 => 0
        frst u
 
     elt(x:%,n:NNI) == coefficient(x,n)
-- 
cgit v1.2.3