open Sys;; let system_test () = set_signal sigint (Signal_handle (fun x -> print_endline "SIGINT received")); let _ = mon_system "sleep 10" in print_endline "mon_system finished"; Pervasives.flush Pervasives.stdout; sleep 10; print_endline "sleep finished";; handle_unix_error system_test ();; |