===================================================================
RCS file: /home/cvs/OpenXM/src/ox_gsl/call_gsl.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM/src/ox_gsl/call_gsl.c	2018/03/29 11:52:18	1.1
+++ OpenXM/src/ox_gsl/call_gsl.c	2018/03/30 04:43:16	1.2
@@ -1,9 +1,15 @@
+/* $OpenXM$ 
+*/
 //#include <gsl/gsl_types.h>
 //#include <gsl/gsl_sys.h>
+#include <unistd.h>
 #include <gsl/gsl_sf_result.h>
+#include <gsl/gsl_errno.h>
 #include <gsl/gsl_sf_gamma.h>
 #include "ox_gsl.h"
 extern int Debug;
+// local prototype declarations
+
 void  call_gsl_sf_lngamma_complex_e() {
   cmo *c;
   double zr;
@@ -13,8 +19,8 @@ void  call_gsl_sf_lngamma_complex_e() {
   int status;
   cmo *r[3];
   cmo *ans;
-  gsl_set_error_handler_off();
-  // Todo, gsl_set_error_handler(my_handler);
+  //  gsl_set_error_handler_off();
+  gsl_set_error_handler((gsl_error_handler_t *)myhandler);
   c = pop(); // number of args
   zr=get_double();
   zi=get_double();
@@ -23,6 +29,6 @@ void  call_gsl_sf_lngamma_complex_e() {
   r[0] = (cmo *)new_cmo_double(lnr.val);
   r[1] = (cmo *)new_cmo_double(arg.val);
   r[2] = (cmo *)new_cmo_int32(status);
-  ans = (cmo *)new_cmo_list_array((void **)r,3);
+  ans = (cmo *)new_cmo_list_array((void *)r,3);
   push(ans);
 }