correctly handle the SIGINT signal

Ignore-this: ea0c2dbb5cba430cc586a66d26f094d1 darcs-hash:20110812211135-c41ad-ed9759f105d138c264cca67d0a0cdefda1a5f0a7
ocaml-community · Aug 12, 2011 · 4b8ce2b · 4b8ce2b
1 parent 7a791ae
commit 4b8ce2b
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/uTop_console.ml b/src/uTop_console.ml
@@ -439,8 +439,12 @@ let rec read_input term prompt buffer len =
             end else
               return ()
           in
+          (* Restore the Lwt signal handler for SIGINT (Toploop catches it). *)
+          Lwt_unix.reinstall_signal_handler Sys.sigint;
           (new read_line ~term ~prompt:prompt_to_display)#run
         finally
+          (* Toploop need to catch the SIGINT signal. *)
+          Sys.catch_break true;
           LTerm.flush term
       ) in