do not manage SIGINT

Ignore-this: 113a23f695ca40788c12279e64b19e9f

darcs-hash:20110828152450-c41ad-1d223ee84c2149921b1b938cf86b3e5671fbf634
这个提交包含在:
Jeremie Dimino 2011-08-28 17:24:50 +02:00
父节点 5c7ce88938
当前提交 216686b89f
共有 1 个文件被更改,包括 0 次插入4 次删除

查看文件

@ -439,12 +439,8 @@ 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