diff options
| author | Pierre-Marie Pédrot | 2018-10-15 16:11:58 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-15 16:11:58 +0200 |
| commit | da4c6c4022625b113b7df4a61c93ec351a6d194b (patch) | |
| tree | dc72a6cd47abc99dcd87382ee95385471ac2588e /pretyping/detyping.ml | |
| parent | fca9ec68937e047d3895d05e57de462387737796 (diff) | |
| parent | 8a3fa648109ab4fae20a424fd1342cb26a123d58 (diff) | |
Merge PR #8689: A few useless accesses to the global environment in pretyping and engine
Diffstat (limited to 'pretyping/detyping.ml')
| -rw-r--r-- | pretyping/detyping.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 0dc5a9bad5..592057ab41 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -647,6 +647,7 @@ and detype_r d flags avoid env sigma t = else GEvar (Id.of_string_soft ("M" ^ string_of_int n), []) | Var id -> + (* Discriminate between section variable and non-section variable *) (try let _ = Global.lookup_named id in GRef (VarRef id, None) with Not_found -> GVar id) | Sort s -> GSort (detype_sort sigma (ESorts.kind sigma s)) |