do not raise any exn in an async_exn_hook body
This commit is contained in:
parent
4374b1725e
commit
9748ffcda6
@ -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)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user