diff options
| author | Maxime Dénès | 2018-10-30 11:03:26 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-10-30 13:10:02 +0100 |
| commit | 6214079b980b8a02bef20d5b25abbe49c3095f32 (patch) | |
| tree | 7f50070252445fa2147f81c7d0aeb65158e1ac0d /pretyping/pretype_errors.ml | |
| parent | 0ac673e562c34245e4e48efc428d808e917be79b (diff) | |
Distinguish globalization and pretyping error on unbound variable
We can then avoid passing an empty env.
Diffstat (limited to 'pretyping/pretype_errors.ml')
| -rw-r--r-- | pretyping/pretype_errors.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/pretype_errors.ml b/pretyping/pretype_errors.ml index 856894d9a6..01b0d96f98 100644 --- a/pretyping/pretype_errors.ml +++ b/pretyping/pretype_errors.ml @@ -164,8 +164,8 @@ let error_not_product ?loc env sigma c = (*s Error in conversion from AST to glob_constr *) -let error_var_not_found ?loc s = - raise_pretype_error ?loc (empty_env, Evd.from_env empty_env, VarNotFound s) +let error_var_not_found ?loc env sigma s = + raise_pretype_error ?loc (env, sigma, VarNotFound s) (*s Typeclass errors *) |