From 1222bc9e677c14884dd7c0f475003f01eb5fb1b1 Mon Sep 17 00:00:00 2001 From: Emilio Jesus Gallego Arias Date: Wed, 7 Feb 2018 19:15:10 +0100 Subject: [toplevel] Disable error resiliency in `-quick` mode. Fixes #6707, indeed, the STM was treating some errors as recoverable thus `-quick` did succeed too often. --- toplevel/coqtop.ml | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'toplevel') 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; -- cgit v1.2.3