diff options
| author | Pierre-Marie Pédrot | 2021-03-06 10:55:34 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-03-06 10:55:34 +0100 |
| commit | 8a61edf00c8f219fff852b70fb9c74e5d3e2aca1 (patch) | |
| tree | d5e9284d7c7947a371ec3cbb2e6e86b244aee227 | |
| parent | aacf8f1756fa5a289f27485a1951392505edfc53 (diff) | |
| parent | 75ebf1540b1e53a8ffae43beb5311695bdce8b41 (diff) | |
Merge PR #13899: Add noncritical constraint to exception catching in solve_constraints
Reviewed-by: ppedrot
| -rw-r--r-- | proofs/refine.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/proofs/refine.ml b/proofs/refine.ml index ac410a958f..ce04c35e11 100644 --- a/proofs/refine.ml +++ b/proofs/refine.ml @@ -129,7 +129,6 @@ 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 -> - (* XXX this is absorbing anomalies? *) + with e when CErrors.noncritical e -> let info = Exninfo.reify () in tclZERO ~info e |