diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-10-13 14:35:07 +0200 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-10-16 10:37:27 +0200 |
| commit | 91f34a0a6744a06cb65c9ffe387f54f857a7bb28 (patch) | |
| tree | efb79f216193a2f0e73683a03c32d36f1461f2c4 /printing/printer.ml | |
| parent | 2e4b5351c9bcca1ccba37075fe3873562969fd3e (diff) | |
Goal: remove most of the API (make [Goal.goal] concrete).
We are left with the compatibility layer and a handful of primitives which require some thought to move.
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 0e082077f..cba33929b 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 *) |