From a591fca8ff59aadda14b595468dea640b6224ffb Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 15 Mar 2004 15:00:15 +0000
Subject: Ajout affichage contexte local

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

(limited to 'dev')

diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index cf73540e5f..fa92245239 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -98,7 +98,9 @@ let print_uni u = (pp (pr_uni u))
 
 let pp_universes u = pp (str"[" ++ pr_universes u ++ str"]")
 
-let ppenv e = pp (pr_rel_context e (rel_context e))
+let ppenv e = pp
+  (str "[" ++ pr_named_context_of e ++ str "]" ++ spc() ++
+   str "[" ++ pr_rel_context e (rel_context e) ++ str "]")
 
 let pptac = (fun x -> pp(Pptactic.pr_glob_tactic x))
 
-- 
cgit v1.2.3