From 4665d920e0b610c07b195ae8d5970be1cb9ae0a0 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Tue, 24 Sep 2013 18:05:48 +0000
Subject: Adding evar printing to debugger.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16802 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 dev/top_printers.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'dev')

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
-- 
cgit v1.2.3