### test.ml [ocaml] exception Test_exc let raise_f () = raise Test_exc let () = let exc = try raise_f () with e -> e in raise exc ### output.txt Fatal error: exception Test.Test_exc Raised at file "pplacer_src/test.ml", line 3, characters 23-31 Called from file "pplacer_src/test.ml", line 6, characters 16-26 Re-raised at file "pplacer_src/test.ml", line 7, characters 8-11