diff options
Diffstat (limited to 'pretyping/evarutil.ml')
| -rw-r--r-- | pretyping/evarutil.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index cfbff80a9..f02d7623d 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -21,6 +21,8 @@ open Evd open Reductionops open Pretype_errors +(** Combinators *) + let evd_comb0 f evdref = let (evd',x) = f !evdref in evdref := evd'; @@ -472,7 +474,7 @@ let rec check_and_clear_in_constr evdref err ids c = ctxt (Array.to_list l) (Id.Map.empty,[]) in (* Check if some rid to clear in the context of ev has dependencies in the type of ev and adjust the source of the dependency *) - let nconcl = + let _nconcl = try let nids = Id.Map.domain rids in check_and_clear_in_constr evdref (EvarTypingBreak ev) nids (evar_concl evi) |