console
- habnabit@ender $ ./gsl_test.native
- Fatal error: exception Gsl_error.Gsl_exn(6, "inverse failed to converge")
- habnabit@ender $ ./gsl_test.byte
- got an exception
- Fatal error: exception Gsl_error.Gsl_exn(6, "inverse failed to converge")
- Raised by primitive operation at file "pplacer_src/gsl_test.ml", line 7, characters 16-66
- Re-raised at file "pplacer_src/gsl_test.ml", line 12, characters 8-11
gsl_test.ml
- exception Got_value of float
- let () =
- Gsl_error.init ();
- let exn =
- try
- Got_value (Gsl_cdf.gamma_Pinv ~p:0.250000 ~a:0.016000 ~b:1.)
- with
- | exc -> exc
- in
- print_endline "got an exception";
- raise exn