diff options
| -rw-r--r-- | tools/fake_ide.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/fake_ide.ml b/tools/fake_ide.ml index c0d2e4d6b..271846124 100644 --- a/tools/fake_ide.ml +++ b/tools/fake_ide.ml @@ -293,7 +293,7 @@ let usage () = module Coqide = Spawn.Sync(struct end) let main = - Sys.set_signal Sys.sigpipe + if Sys.os_type = "Unix" then Sys.set_signal Sys.sigpipe (Sys.Signal_handle (fun _ -> prerr_endline "Broken Pipe (coqtop died ?)"; exit 1)); let def_args = ["--xml_format=Ppcmds"; "-ideslave"] in |