diff options
| author | ppedrot | 2013-09-24 18:05:48 +0000 |
|---|---|---|
| committer | ppedrot | 2013-09-24 18:05:48 +0000 |
| commit | 4665d920e0b610c07b195ae8d5970be1cb9ae0a0 (patch) | |
| tree | d165b568f49f0a97db24e38adcd57e0df6c47ead /dev | |
| parent | 69a24bd066bf29ea2437afd84d73630e8b93a55c (diff) | |
Adding evar printing to debugger.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16802 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/top_printers.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 6bb352c5eb..3d90d25cf3 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -46,6 +46,7 @@ let ppclindex cl = pp(Classops.pr_cl_index cl) (* term printers *) let rawdebug = ref false +let ppevar evk = pp (str (Evd.string_of_existential evk)) let ppconstr x = pp (Termops.print_constr x) let ppconstrdb x = pp(Flags.with_option rawdebug Termops.print_constr x) let ppterm = ppconstr |