diff options
| author | ppedrot | 2012-06-01 20:08:33 +0000 |
|---|---|---|
| committer | ppedrot | 2012-06-01 20:08:33 +0000 |
| commit | a92a0d051b987ba996905ccd4ce7ee3a5feb41c1 (patch) | |
| tree | ec5246ac1cfc741dc30c33fe6551216dfdef6a54 /lib | |
| parent | 80b91aa1e83097efd006cfed5f57e4826a1ab0c8 (diff) | |
More cleaning
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15414 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/pp.ml4 | 1 | ||||
| -rw-r--r-- | lib/pp.mli | 4 |
2 files changed, 2 insertions, 3 deletions
diff --git a/lib/pp.ml4 b/lib/pp.ml4 index 35621a5d7c..0ec4ea4c91 100644 --- a/lib/pp.ml4 +++ b/lib/pp.ml4 @@ -328,6 +328,7 @@ let flush_all() = flush stderr; flush stdout; pp_flush() let msg x = msg_with !std_ft x let msgnl x = msgnl_with !std_ft x let msg_info x = msgnl x +let msg_tactic x = msgnl x let msgerr x = msg_with !err_ft x let msgerrnl x = msgnl_with !err_ft x let msg_warning x = msg_warning_with !err_ft x diff --git a/lib/pp.mli b/lib/pp.mli index e3a3535e91..58a5171d31 100644 --- a/lib/pp.mli +++ b/lib/pp.mli @@ -78,6 +78,7 @@ val tclose : unit -> std_ppcmds val msg_info : std_ppcmds -> unit val msg_warning : std_ppcmds -> unit +(* val msg_tactic : std_ppcmds -> unit *) val msg_debug : std_ppcmds -> unit val string_of_ppcmds : std_ppcmds -> string @@ -137,8 +138,6 @@ val surround : std_ppcmds -> std_ppcmds val pp_with : Format.formatter -> std_ppcmds -> unit val ppnl_with : Format.formatter -> std_ppcmds -> unit -val warning_with : Format.formatter -> string -> unit -val warn_with : Format.formatter -> std_ppcmds -> unit val pp_flush_with : Format.formatter -> unit -> unit (** {6 Pretty-printing functions {% \emph{%}without flush{% }%} on [stdout] and [stderr]. } *) @@ -158,5 +157,4 @@ val set_warning_function : (Format.formatter -> std_ppcmds -> unit) -> unit (** {6 Low-level pretty-printing functions {% \emph{%}with flush{% }%}. } *) val msg_with : Format.formatter -> std_ppcmds -> unit -val msgnl_with : Format.formatter -> std_ppcmds -> unit |