X-Git-Url: http://nsz.repo.hu/git/?p=libm;a=blobdiff_plain;f=src%2Fcmath%2Fctan.c;h=4741a4df3f8966090a311c3155ce3fa804bcc292;hp=4462ef0b033f72993cf503e1dc2f288cbbbdab46;hb=5718e964d8a5c273a91b4d86d16926f54151c58f;hpb=1eb8d023d8b5c286908af676cb405a2ba598d286

diff --git a/src/cmath/ctan.c b/src/cmath/ctan.c
index 4462ef0..4741a4d 100644
--- a/src/cmath/ctan.c
+++ b/src/cmath/ctan.c
@@ -1,9 +1,9 @@
 #include "libm.h"
 
+/* tan(z) = -i tanh(i z) */
+
 double complex ctan(double complex z)
 {
-	double complex r;
-
-	r = ctanh(cpack(-cimag(z), creal(z)));
-	return cpack(cimag(r), -creal(r));
+	z = ctanh(cpack(-cimag(z), creal(z)));
+	return cpack(cimag(z), -creal(z));
 }