blob: 856a46c15f06b0bf4a1da50310b746cf3a4dd530 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
diff -Naur orpie-1.4.3/gsl/mlgsl_error.c orpie-1.4.3-new/gsl/mlgsl_error.c
--- orpie-1.4.3/gsl/mlgsl_error.c 2005-10-29 22:40:23.000000000 -0400
+++ orpie-1.4.3-new/gsl/mlgsl_error.c 2007-01-08 09:14:35.000000000 -0500
@@ -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,
|
GitWeb
