aboutsummaryrefslogtreecommitdiff
path: root/pretyping
diff options
context:
space:
mode:
authorHugo Herbelin2018-12-05 19:41:48 +0100
committerHugo Herbelin2019-01-06 19:45:57 +0100
commit9d6188637570d6fa62c74aecc95212821bcb22df (patch)
treee78f9acdfd75d174cf0ff4a27f25404b46608815 /pretyping
parent3d7eb01d428c9d98b10004f3f4f40b2209232971 (diff)
Renaming pr_evar_suggested_name into -> evar_suggested_name.
Since it returns an Id.t and not a Pp.t.
Diffstat (limited to 'pretyping')
-rw-r--r--pretyping/detyping.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml
index 517834f014..c7cc2dbc8a 100644
--- a/pretyping/detyping.ml
+++ b/pretyping/detyping.ml
@@ -739,7 +739,7 @@ and detype_r d flags avoid env sigma t =
let id,l =
try
let id = match Evd.evar_ident evk sigma with
- | None -> Termops.pr_evar_suggested_name evk sigma
+ | None -> Termops.evar_suggested_name evk sigma
| Some id -> id
in
let l = Evd.evar_instance_array bound_to_itself_or_letin (Evd.find sigma evk) cl in