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