aboutsummaryrefslogtreecommitdiff
path: root/printing/printer.ml
diff options
context:
space:
mode:
Diffstat (limited to 'printing/printer.ml')
-rw-r--r--printing/printer.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/printer.ml b/printing/printer.ml
index 0e082077fe..cba33929b9 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -397,7 +397,7 @@ let display_name = false
(* display a goal name *)
let pr_goal_name sigma g =
- if display_name then str " " ++ Pp.surround (pr_id (Goal.goal_ident sigma g))
+ if display_name then str " " ++ Pp.surround (pr_id (Evd.evar_ident g sigma))
else mt ()
(* display the conclusion of a goal *)