diff options
author | 2016-06-27 20:47:43 +0200 | |
---|---|---|
committer | 2016-06-27 20:47:43 +0200 | |
commit | 663a8647bbc32e11243091de80f9953ed5fb7eff (patch) | |
tree | 7fba0a308daee7586221f752e233dd8fa9c8f5f5 /pretyping/coercion.ml | |
parent | d4725f692a5f202ca4c5d6341b586b0e377f6973 (diff) | |
parent | a7ea32fbf3829d1ce39ce9cc24b71791727090c5 (diff) |
Merge branch 'v8.5'
Diffstat (limited to 'pretyping/coercion.ml')
-rw-r--r-- | pretyping/coercion.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/coercion.ml b/pretyping/coercion.ml index 5c7adf1aa..c168e070f 100644 --- a/pretyping/coercion.ml +++ b/pretyping/coercion.ml @@ -513,7 +513,7 @@ let inh_conv_coerce_to_gen resolve_tc rigidonly loc env evd cj t = error_actual_type_loc loc env best_failed_evd cj t e else inh_conv_coerce_to_fail loc env evd' rigidonly (Some cj.uj_val) cj.uj_type t - with NoCoercionNoUnifier (best_failed_evd,e) -> + with NoCoercionNoUnifier (_evd,_error) -> error_actual_type_loc loc env best_failed_evd cj t e in let val' = match val' with Some v -> v | None -> assert(false) in |