Ctr-C now is equivalent to pressing the Break button

[helm.git] / matita / matita / matita.ml

diff --git a/matita/matita/matita.ml b/matita/matita/matita.ml
index 2731a5ac727d9a209ded7ba84d4d055a88d709e4..189259621463120353fa4a1e9155ee55ff99d1f0 100644 (file)
--- a/matita/matita/matita.ml
+++ b/matita/matita/matita.ml
@@ -106,9 +106,9 @@ let init_debugging_menu gui =
 
 let _ =
   at_exit (fun () -> print_endline "\nThanks for using Matita!\n");
-  Sys.catch_break true;
   let args = Helm_registry.get_list Helm_registry.string "matita.args" in
   let gui = MatitaGui.instance () in
+  Sys.set_signal Sys.sigint (Sys.Signal_handle(fun _ -> gui#kill_worker ()));
   init_debugging_menu gui;
   List.iter gui#loadScript (List.rev args);
   gui#main#mainWin#show ();