Une passe sur les warnings (ajout Options.warn déclenchée par compile-verbose +

ajout Pp.strbrk pour faciliter les césures faciles + messages divers).


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9679 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 4 insertions, 0 deletions

diff --git a/lib/options.ml b/lib/options.ml
index e59a19bbb7..848b08611c 100644
--- a/lib/options.ml
+++ b/lib/options.ml
@@ -63,6 +63,10 @@ let if_verbose f x = if not !silent then f x
 
 let hash_cons_proofs = ref true
 
+let warn = ref true
+let make_warn flag = warn := flag;  ()
+let if_warn f x = if !warn then f x
+
 (* The number of printed hypothesis in a goal *)
 
 let print_hyps_limit = ref (None : int option)