diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-02-07 19:15:10 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-02-07 19:16:26 +0100 |
commit | 1222bc9e677c14884dd7c0f475003f01eb5fb1b1 (patch) | |
tree | 17dd07f8556426d1d5289a01a630f3fd125314b9 /toplevel | |
parent | 47e43e229ab02a4dedc2405fed3960a4bf476b58 (diff) |
[toplevel] Disable error resiliency in `-quick` mode.
Fixes #6707, indeed, the STM was treating some errors as recoverable
thus `-quick` did succeed too often.
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; |