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

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 f7df2409e03366ab06966a72bcc2c9fa25bad7d0..c4ebe9909ca89bf53b6522f396f99d5aedd2bb5c 100644 (file)
--- 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);