diff options
| author | monate | 2003-02-04 16:45:50 +0000 |
|---|---|---|
| committer | monate | 2003-02-04 16:45:50 +0000 |
| commit | 3fe1d8e42877e07e744911fcd2b5a9c7afe988f6 (patch) | |
| tree | 7a3fc7da6f7f8880ee693dc00ada57c4ab980e05 /lib/pp.ml4 | |
| parent | 341eb14c1e5770eab5c12cbf5e38d7d6b4fa3599 (diff) | |
interface GTK2 experimentale
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3660 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/pp.ml4')
| -rw-r--r-- | lib/pp.ml4 | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lib/pp.ml4 b/lib/pp.ml4 index 2d4c76d916..d13044c9a0 100644 --- a/lib/pp.ml4 +++ b/lib/pp.ml4 @@ -169,7 +169,7 @@ let pp_dirs ft = (* pretty print on stdout and stderr *) -let pp_std_dirs = pp_dirs std_ft +let pp_std_dirs = pp_dirs !std_ft let pp_err_dirs = pp_dirs err_ft let ppcmds x = Ppdir_ppcmds x @@ -204,19 +204,19 @@ let msg_warning_with ft strm= (* pretty printing functions WITHOUT FLUSH *) -let pp = pp_with std_ft -let ppnl = ppnl_with std_ft +let pp x = pp_with !std_ft x +let ppnl x = ppnl_with !std_ft x let pperr = pp_with err_ft let pperrnl = ppnl_with err_ft let message s = ppnl (str s) -let warning = warning_with std_ft -let warn = warn_with std_ft -let pp_flush = Format.pp_print_flush std_ft +let warning x = warning_with !std_ft x +let warn x = warn_with !std_ft x +let pp_flush x = Format.pp_print_flush !std_ft x let flush_all() = flush stderr; flush stdout; pp_flush() (* pretty printing functions WITH FLUSH *) -let msg = msg_with std_ft -let msgnl = msgnl_with std_ft +let msg x = msg_with !std_ft x +let msgnl x = msgnl_with !std_ft x let msgerr = msg_with err_ft let msgerrnl = msgnl_with err_ft -let msg_warning = msg_warning_with std_ft +let msg_warning x = msg_warning_with !std_ft x |