fix conversion of OCaml Complex.t to C 'double complex'

mwweissmann · May 1, 2016 · 230aeef · 230aeef
1 parent 63c548c
commit 230aeef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ocaml-posix-math-complex.h b/src/ocaml-posix-math-complex.h
@@ -4,7 +4,7 @@
 #include <complex.h>
 #include <caml/mlvalues.h>
 
-#define Complex_val(v) ((double complex) (Double_field(v, 0) + I * Double_field(v, 0)))
+#define Complex_val(v) ((double complex) (Double_field(v, 0) + Double_field(v, 1) * _Complex_I))
 CAMLextern value caml_copy_complex(double complex c);
 
 #endif