diff options
| author | Pierre-Marie Pédrot | 2015-05-18 15:29:55 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-05-18 16:53:03 +0200 |
| commit | 923ce36ed6789718746369847f622b17bb37df2a (patch) | |
| tree | 06bfd29ccf33f67c9fffc35d424ad77e8c707941 | |
| parent | c3a62d51d13788a650fc13e89a1b6f000ba1f378 (diff) | |
Tentative fix for #3461: Anomaly: Uncaught exception Pretype_errors.PretypeError.
Instad of trying to print the exception, we raise it in the tactic monad.
| -rw-r--r-- | proofs/clenvtac.ml | 4 | ||||
| -rw-r--r-- | test-suite/bugs/closed/3461.v (renamed from test-suite/bugs/opened/3461.v) | 0 |
2 files changed, 1 insertions, 3 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 18883df247..aaa49f1169 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -125,7 +125,5 @@ let unify ?(flags=fail_quick_unif_flags) m = try let evd' = w_unify env evd CONV ~flags m n in Proofview.Unsafe.tclEVARSADVANCE evd' - with e when Errors.noncritical e -> - (** This is Tacticals.tclFAIL *) - Proofview.tclZERO (FailError (0, lazy (Errors.print e))) + with e when Errors.noncritical e -> Proofview.tclZERO e end diff --git a/test-suite/bugs/opened/3461.v b/test-suite/bugs/closed/3461.v index 1b625e6a15..1b625e6a15 100644 --- a/test-suite/bugs/opened/3461.v +++ b/test-suite/bugs/closed/3461.v |