spacepaste

test.ml

  1.  
  2. exception Test_exc
  3. let raise_f () = raise Test_exc
  4. let () =
  5. let exc = try raise_f () with e -> e in
  6. raise exc
  7.  

output.txt

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