Commit 83de4f84 authored by Francois Bobot's avatar Francois Bobot

Print exception in scheduler bu Exn_printer

parent ec27f357
......@@ -112,9 +112,7 @@ let event_handler () =
in ()
with
| e ->
try
Printexc.print (fun () -> raise e) ()
with _ ->
eprintf "%a@." Exn_printer.exn_printer e;
Mutex.lock queue_lock;
Queue.push (a,HighFailure,0.0) answers_queue ;
(* Condition.signal queue_condition; *)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment