diff options
| author | Maxime Dénès | 2019-02-01 12:55:59 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2019-02-01 12:55:59 +0100 |
| commit | aa2394d4ee6525b811db1e1eb58573c2f7aa749c (patch) | |
| tree | 8c1da5d75a777e5113d47804ced049bbb4ed3946 /stm | |
| parent | f6f9cf742ee5894be65d6e2de527e3ab5a643491 (diff) | |
| parent | d9fb8db86d5b4ddc79a207c5f0ac32eb98215e78 (diff) | |
Merge PR #9095: [toplevel] Deprecate `-compile` flag in favor of `coqc`
Ack-by: SkySkimmer
Reviewed-by: Zimmi48
Ack-by: ejgallego
Ack-by: gares
Reviewed-by: maximedenes
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index dfe5581ed5..0165b3c029 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -1671,7 +1671,7 @@ end = struct (* {{{ *) when is_tac expr && State.same_env o n -> (* A pure tactic *) Some (id, `ProofOnly (prev, State.proof_part_of_frozen n)) | Some _, Some s -> - msg_debug (Pp.str "STM: sending back a fat state"); + if !Flags.debug then msg_debug (Pp.str "STM: sending back a fat state"); Some (id, `Full s) | _, Some s -> Some (id, `Full s) in let rec aux seen = function |