From: Richard Kreckel <Richard.Kreckel@uni-mainz.de>
Date: Mon, 3 Apr 2000 22:22:10 +0000 (+0000)
Subject: - atanh_series(): corrected an oops.
X-Git-Tag: release_0-6-0~33
X-Git-Url: https://ginac.de/ginac.git/static/gitweb.css/ginac.git?a=commitdiff_plain;h=bdbc7bc10fcefdc000fd532280679d8e57b36795;p=ginac.git

- atanh_series(): corrected an oops.
---

diff --git a/ginac/inifcns_trans.cpp b/ginac/inifcns_trans.cpp
index 87059014..924d195e 100644
--- a/ginac/inifcns_trans.cpp
+++ b/ginac/inifcns_trans.cpp
@@ -386,7 +386,7 @@ static ex tan_eval(const ex & x)
         if (z.is_equal(_num25())) // tan(5/12*Pi) -> 2+sqrt(3)
             return sign*(power(_ex3(),_ex1_2())+_ex2());
         if (z.is_equal(_num30())) // tan(Pi/2)    -> infinity
-            throw (std::domain_error("tan_eval(): infinity"));
+            throw (std::domain_error("tan_eval(): simple pole"));
     }
     
     if (is_ex_exactly_of_type(x, function)) {
@@ -896,8 +896,8 @@ static ex atanh_eval(const ex & x)
         if (x.is_zero())
             return _ex0();
         // atanh({+|-}1) -> throw
-        if (x.is_equal(_ex1()) || x.is_equal(_ex1()))
-            throw (std::domain_error("atanh_eval(): infinity"));
+        if (x.is_equal(_ex1()) || x.is_equal(_ex_1()))
+            throw (std::domain_error("atanh_eval(): logarithmic pole"));
         // atanh(float) -> float
         if (!x.info(info_flags::crational))
             return atanh_evalf(x);