diff options
| author | Gaëtan Gilbert | 2019-02-08 16:10:46 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-02-11 12:56:07 +0100 |
| commit | ac7169182a970c33be2e33abd43be5bf19542e2c (patch) | |
| tree | 8c65962bb142c6bbbed1ff9354e63124174ba5a8 /vernac/explainErr.ml | |
| parent | 3352a5b7c4507ff8fda1f5aeba83f2e141cb7a3e (diff) | |
Fix #9527: unknown evar in nonterminating [fix] error.
Diffstat (limited to 'vernac/explainErr.ml')
| -rw-r--r-- | vernac/explainErr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/explainErr.ml b/vernac/explainErr.ml index 42b313f200..06428b53f2 100644 --- a/vernac/explainErr.ml +++ b/vernac/explainErr.ml @@ -58,7 +58,7 @@ let process_vernac_interp_error exn = match fst exn with mt() in wrap_vernac_error exn (str "Universe inconsistency" ++ msg ++ str ".") | TypeError(ctx,te) -> - let te = Himsg.map_ptype_error EConstr.of_constr te in + let te = map_ptype_error EConstr.of_constr te in wrap_vernac_error exn (Himsg.explain_type_error ctx Evd.empty te) | PretypeError(ctx,sigma,te) -> wrap_vernac_error exn (Himsg.explain_pretype_error ctx sigma te) |