diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-01 13:43:24 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-01 13:43:24 +0000 |
| commit | 864176d15e2060393f31c79695e2c59115ea4be4 (patch) | |
| tree | 9f3213ac900189bcf28d6085861cf58ae9aa560e | |
| parent | d969aea30c2cd69b301a19db82963b52714021a3 (diff) | |
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
| -rw-r--r-- | toplevel/vernacentries.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index c5cbb206f..999b7b972 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 ()) |