do not raise any exn in an async_exn_hook body

This commit is contained in:
Vincent Bernardoff 2016-10-10 15:35:36 +02:00
parent 4374b1725e
commit 9748ffcda6

View File

@ -54,7 +54,7 @@ let () =
| exn ->
Printf.eprintf "Uncaught (asynchronous) exception: %S\n%s\n%!"
(Printexc.to_string exn) (Printexc.get_backtrace ());
exit 1)
Lwt.wakeup exit_wakener 1)
module StringMap = Map.Make (String)