diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-07-28 18:14:38 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-07-28 18:14:38 +0200 |
| commit | eaff3b36a178416f1828d75a4d46afc687953cea (patch) | |
| tree | 828a726bf9c8394cc23f5e2c3f39039b9aa49617 /ide/coq.ml | |
| parent | b8f9a259ab0a24a73b477b9e75a6ea3b3cb47943 (diff) | |
| parent | c45e36f4de1b803aac623cb819f39842e54837d6 (diff) | |
Merge PR #823: Async off in Windows by default in CoqIDE
Diffstat (limited to 'ide/coq.ml')
| -rw-r--r-- | ide/coq.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/ide/coq.ml b/ide/coq.ml index 8ecdf9caa..0fe831ab3 100644 --- a/ide/coq.ml +++ b/ide/coq.ml @@ -366,7 +366,14 @@ let bind_self_as f = (** This launches a fresh handle from its command line arguments. *) let spawn_handle args respawner feedback_processor = let prog = coqtop_path () in - let args = Array.of_list ("--xml_format=Ppcmds" :: "-async-proofs" :: "on" :: "-ideslave" :: args) in + let async_default = + (* disable async processing by default in Windows *) + if List.mem Sys.os_type ["Win32"; "Cygwin"] then + "off" + else + "on" + in + let args = Array.of_list ("--xml_format=Ppcmds" :: "-async-proofs" :: async_default :: "-ideslave" :: args) in let env = match !Flags.ideslave_coqtop_flags with | None -> None |