12 lines
456 B
C
12 lines
456 B
C
--- gsl/mlgsl_error.c.orig Sat Oct 29 22:40:23 2005
|
|
+++ gsl/mlgsl_error.c Sun Sep 24 14:42:12 2006
|
|
@@ -43,7 +43,8 @@
|
|
exn_arg = alloc_small(2, 0);
|
|
Store_field(exn_arg, 0, Val_int(conv_err_code(gsl_errno)));
|
|
Store_field(exn_arg, 1, copy_string(ml_gsl_exn_msg));
|
|
- CAMLreturn(raise_with_arg(*ml_gsl_exn, exn_arg));
|
|
+ raise_with_arg(*ml_gsl_exn, exn_arg);
|
|
+ CAMLreturn0;
|
|
}
|
|
|
|
static void ml_gsl_error_handler(const char *reason, const char *file,
|