spacepaste

test.ml

  1.  
  2. exception Test_exc
  3. type t = {exc: exn}
  4. let raise_f () = raise Test_exc
  5. let () =
  6. let i = try raise_f () with exc -> {exc} in
  7. raise i.exc
  8.  

output.txt

  1.  
  2. Fatal error: exception Test.Test_exc
  3. Raised at file "pplacer_src/test.ml", line 5, characters 23-31
  4. Called from file "pplacer_src/test.ml", line 8, characters 14-24
  5. Re-raised at file "pplacer_src/test.ml", line 9, characters 8-13
  6.