From 864176d15e2060393f31c79695e2c59115ea4be4 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 1 Nov 2003 13:43:24 +0000
Subject: Debranchement de Print si pas verbose (necessaire pour traducteur)

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

diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index c5cbb206f3..999b7b9722 100644
--- a/toplevel/vernacentries.ml
+++ b/toplevel/vernacentries.ml
@@ -835,7 +835,8 @@ let vernac_global_check c =
   let j = Safe_typing.typing senv c in
   msg (print_safe_judgment env j)
 
-let vernac_print = function
+let vernac_print p = 
+  if Options.is_verbose () then match p with
   | PrintTables -> print_tables ()
   | PrintLocalContext -> msg (print_local_context ())
   | PrintFullContext -> msg (print_full_context_typ ())
-- 
cgit v1.2.3