diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-08 09:05:45 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-02-08 09:05:45 +0000 |
| commit | d2a0862f34c51dd52db6be34ae1cf60a590c4e9a (patch) | |
| tree | 1f59ed844e1396d9cd70c119e3463010db327601 /contrib/correctness/pmisc.ml | |
| parent | eb2862a2221276c44a90ed195d896c836674a66a (diff) | |
affichages avec prterm_env et non prterm; deb_print pour vraiment ne rien faire si pas debug
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2462 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/correctness/pmisc.ml')
| -rw-r--r-- | contrib/correctness/pmisc.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/contrib/correctness/pmisc.ml b/contrib/correctness/pmisc.ml index 36e4f0dc9..6d0ad0fb0 100644 --- a/contrib/correctness/pmisc.ml +++ b/contrib/correctness/pmisc.ml @@ -22,7 +22,12 @@ let debug = ref false let deb_mess s = if !debug then begin - msgnl s; pp_flush() + msgnl s; pp_flush() + end + +let deb_print f x = + if !debug then begin + msgnl (f x); pp_flush() end let list_of_some = function |