diff options
| author | Lasse Blaauwbroek | 2021-03-04 20:47:24 +0100 |
|---|---|---|
| committer | Lasse Blaauwbroek | 2021-03-04 20:48:36 +0100 |
| commit | 75ebf1540b1e53a8ffae43beb5311695bdce8b41 (patch) | |
| tree | 5366ce9b18623fb7ae70218088b77e38fe218cf7 | |
| parent | bb4e1a76802a5440605264320ed528331ec0e2b7 (diff) | |
Add noncritical constraint to exception catching in solve_constraints
| -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 |