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

Print exception in scheduler bu Exn_printer

parent ec27f357
......@@ -112,14 +112,12 @@ let event_handler () =
in ()
with
| e ->
try
Printexc.print (fun () -> raise e) ()
with _ ->
Mutex.lock queue_lock;
Queue.push (a,HighFailure,0.0) answers_queue ;
(* Condition.signal queue_condition; *)
Mutex.unlock queue_lock;
()
eprintf "%a@." Exn_printer.exn_printer e;
Mutex.lock queue_lock;
Queue.push (a,HighFailure,0.0) answers_queue ;
(* Condition.signal queue_condition; *)
Mutex.unlock queue_lock;
()
with Queue.Empty ->
eprintf "Scheduler.event_handler: unexpected empty queues@.";
assert false
......
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