diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-02-13 11:16:40 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-02-13 11:16:40 +0100 |
commit | f6cc1ab4fcc26e2b0ed9186ee9a3caca7a123d97 (patch) | |
tree | 5b171652523d6e67704bc080472a6c9060bebef1 /toplevel | |
parent | f1d865633b27098c9264c60a6507241df6adb131 (diff) | |
parent | 1222bc9e677c14884dd7c0f475003f01eb5fb1b1 (diff) |
Merge PR #6711: [toplevel] Disable error resiliency in `-quick` mode.
Diffstat (limited to 'toplevel')
-rw-r--r-- | toplevel/coqtop.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 400f7048d..329107093 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -354,6 +354,17 @@ let compile ~time ~verbosely ~f_in ~f_out = | None -> long_f_dot_v ^ "io" | Some f -> ensure_vio long_f_dot_v f in + (* We need to disable error resiliency, otherwise some errors + will be ignored in batch mode. c.f. #6707 + + This is not necessary in the vo case as it fully checks the + document anyways. *) + let stm_options = let open Stm.AsyncOpts in + { stm_options with + async_proofs_cmd_error_resilience = false; + async_proofs_tac_error_resilience = `None; + } in + let doc, sid = Stm.(new_doc { doc_type = VioDoc long_f_dot_vio; iload_path; |