test.ml
- exception Test_exc
- type t = {exc: exn}
- let raise_f () = raise Test_exc
- let () =
- let i = try raise_f () with exc -> {exc} in
- raise i.exc
output.txt
- Fatal error: exception Test.Test_exc
- Raised at file "pplacer_src/test.ml", line 5, characters 23-31
- Called from file "pplacer_src/test.ml", line 8, characters 14-24
- Re-raised at file "pplacer_src/test.ml", line 9, characters 8-13