spacepaste

console

  1.  
  2. habnabit@ender $ ./gsl_test.native
  3. Fatal error: exception Gsl_error.Gsl_exn(6, "inverse failed to converge")
  4. habnabit@ender $ ./gsl_test.byte
  5. got an exception
  6. Fatal error: exception Gsl_error.Gsl_exn(6, "inverse failed to converge")
  7. Raised by primitive operation at file "pplacer_src/gsl_test.ml", line 7, characters 16-66
  8. Re-raised at file "pplacer_src/gsl_test.ml", line 12, characters 8-11
  9.  

gsl_test.ml

  1.  
  2. exception Got_value of float
  3. let () =
  4. Gsl_error.init ();
  5. let exn =
  6. try
  7. Got_value (Gsl_cdf.gamma_Pinv ~p:0.250000 ~a:0.016000 ~b:1.)
  8. with
  9. | exc -> exc
  10. in
  11. print_endline "got an exception";
  12. raise exn
  13.