diff options
Diffstat (limited to 'proofs/refine.ml')
| -rw-r--r-- | proofs/refine.ml | 5 |
1 files changed, 4 insertions, 1 deletions
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 |