X-Git-Url: http://nsz.repo.hu/git/?p=libm;a=blobdiff_plain;f=src%2Fcmath%2Fcsin.c;fp=src%2Fcmath%2Fcsin.c;h=246a4595423af74e21e1125a552f3f6e85784abe;hp=ab72055f428cf63f85c26cd78674bc9966350ae3;hb=5718e964d8a5c273a91b4d86d16926f54151c58f;hpb=1305df184d9d04274ce170864c92af8cbeae23e2

diff --git a/src/cmath/csin.c b/src/cmath/csin.c
index ab72055..246a459 100644
--- a/src/cmath/csin.c
+++ b/src/cmath/csin.c
@@ -1,9 +1,9 @@
 #include "libm.h"
 
+/* sin(z) = -i sinh(i z) */
+
 double complex csin(double complex z)
 {
-	double complex r;
-
-	r = csinh(cpack(-cimag(z), creal(z)));
-	return cpack(cimag(r), -creal(r));
+	z = csinh(cpack(-cimag(z), creal(z)));
+	return cpack(cimag(z), -creal(z));
 }