From: Richard Kreckel <kreckel@ginac.de>
Date: Thu, 16 Jan 2014 22:00:42 +0000 (+0000)
Subject: Revert "Convert complex numbers to real numbers if imaginary part is floating-point... 
X-Git-Tag: cln_1-3-4~9
X-Git-Url: https://www.ginac.de/CLN/cln.git//cln.git?a=commitdiff_plain;h=3ee7836238cee2466248f3ceedb8e033c726512e;p=cln.git

Revert "Convert complex numbers to real numbers if imaginary part is floating-point 0.0."

This reverts commit 536a0ac50f6c90198982267943af4d551612a9d9.

Cf. <http://www.ginac.de/pipermail/ginac-devel/2014-January/002086.html/>.
---

diff --git a/src/complex/elem/cl_C_from_R_R_complex1.cc b/src/complex/elem/cl_C_from_R_R_complex1.cc
index f7df240..c4ebe99 100644
--- a/src/complex/elem/cl_C_from_R_R_complex1.cc
+++ b/src/complex/elem/cl_C_from_R_R_complex1.cc
@@ -17,7 +17,7 @@ const cl_N complex (const cl_R& a, const cl_R& b)
 {
 // Methode:
 // Falls b=0, nur a. sonst komplexe Zahl erzeugen.
-	if (zerop(b))
+	if (eq(b,0))
 		return a;
 	else
 		return allocate_complex(a,b);