diff options
| author | Hugo Herbelin | 2020-03-02 23:51:17 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2020-03-13 07:37:25 +0100 |
| commit | bc77fdc4330c8572111102d61fd65f032b1cf5b6 (patch) | |
| tree | be7862d0a922434e9c00018a6faed7c657e39d36 /engine | |
| parent | ee2c5352d95adee5a31689c79785547c0dbaa749 (diff) | |
Double-checking at tclZERO entry that the exception is non critical.
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/proofview.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/engine/proofview.ml b/engine/proofview.ml index 6a4e490408..d20c660311 100644 --- a/engine/proofview.ml +++ b/engine/proofview.ml @@ -262,6 +262,8 @@ module Monad = Proof (** [tclZERO e] fails with exception [e]. It has no success. *) let tclZERO ?info e = + if not (CErrors.noncritical e) then + CErrors.anomaly (Pp.str "tclZERO receiving critical error: " ++ CErrors.print e); let info = match info with | None -> Exninfo.null | Some info -> info |