diff options
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/clenvtac.ml | 4 | ||||
| -rw-r--r-- | proofs/proof.ml | 8 | ||||
| -rw-r--r-- | proofs/refine.ml | 5 |
3 files changed, 13 insertions, 4 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 0257a6f204..007d53f911 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -129,5 +129,7 @@ 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 CErrors.noncritical e -> Proofview.tclZERO e + with e when CErrors.noncritical e -> + let info = Exninfo.reify () in + Proofview.tclZERO ~info e end diff --git a/proofs/proof.ml b/proofs/proof.ml index 75aca7e7ff..175c487958 100644 --- a/proofs/proof.ml +++ b/proofs/proof.ml @@ -525,7 +525,10 @@ let solve ?with_end_tac gi info_lvl tac pr = | None -> tac | Some _ -> Proofview.Trace.record_info_trace tac in - let nosuchgoal = Proofview.tclZERO (SuggestNoSuchGoals (1,pr)) in + let nosuchgoal = + let info = Exninfo.reify () in + Proofview.tclZERO ~info (SuggestNoSuchGoals (1,pr)) + in let tac = let open Goal_select in match gi with | SelectAlreadyFocused -> let open Proofview.Notations in @@ -537,7 +540,8 @@ let solve ?with_end_tac gi info_lvl tac pr = Pp.(str "Expected a single focused goal but " ++ int n ++ str " goals are focused.")) in - Proofview.tclZERO e + let info = Exninfo.reify () in + Proofview.tclZERO ~info e | SelectNth i -> Proofview.tclFOCUS ~nosuchgoal i i tac | SelectList l -> Proofview.tclFOCUSLIST ~nosuchgoal l tac diff --git a/proofs/refine.ml b/proofs/refine.ml index 0bf0cd7b63..a10bbcbdd4 100644 --- a/proofs/refine.ml +++ b/proofs/refine.ml @@ -132,4 +132,7 @@ let solve_constraints = tclENV >>= fun env -> tclEVARMAP >>= fun sigma -> try let sigma = Evarconv.solve_unif_constraints_with_heuristics env sigma in Unsafe.tclEVARSADVANCE sigma - with e -> tclZERO e + with e -> + (* XXX this is absorbing anomalies? *) + let info = Exninfo.reify () in + tclZERO ~info e |