(* This function is especially useful with lablgtk which intercepts
* the exception and forbid them to reach the toplevel, or with LFS
* where I can not allow any exception to stop mount.lfs.
- *
+ *
* src: Jane Street Core library.
+ * update: Normally no more needed in OCaml 3.11 as part of the
+ * default runtime.
*)
external print : unit -> unit = "print_exception_backtrace_stub" "noalloc"
exception MyNot_Found
let foo1 () =
- if 1=1
+ if 1=1
then raise MyNot_Found
else 2
let test_backtrace () =
(try ignore(foo2 ())
- with exn ->
+ with exn ->
pr2 (Common.exn_to_s exn);
print();
failwith "other exn"
print_string "ok cool\n";
()
-let actions () =
+let actions () =
[
"-test_backtrace", " ",
Common.mk_action_0_arg test_backtrace;