diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-05-18 15:29:55 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-05-18 16:53:03 +0200 |
commit | 923ce36ed6789718746369847f622b17bb37df2a (patch) | |
tree | 06bfd29ccf33f67c9fffc35d424ad77e8c707941 /proofs/clenvtac.ml | |
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.
Diffstat (limited to 'proofs/clenvtac.ml')
-rw-r--r-- | proofs/clenvtac.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 18883df24..aaa49f116 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 |