diff options
| author | corbinea | 2007-01-31 13:37:42 +0000 |
|---|---|---|
| committer | corbinea | 2007-01-31 13:37:42 +0000 |
| commit | 9dd2df4c16078d41df1cf6233c9cf84fffbeee52 (patch) | |
| tree | 30b7b1baa3abaa49d255c8951c63f86a81579208 /lib/pp_control.ml | |
| parent | e08f20e13cdd2ba23ea7c1e0e1824e585df6e501 (diff) | |
redirection of errors in coqide + dynamic warning printer (needed for tm_egg)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9566 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/pp_control.ml')
| -rw-r--r-- | lib/pp_control.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/pp_control.ml b/lib/pp_control.ml index 0b886342d8..e439161251 100644 --- a/lib/pp_control.ml +++ b/lib/pp_control.ml @@ -89,7 +89,8 @@ let with_output_to ch = let std_ft = ref Format.std_formatter let _ = set_dflt_gp !std_ft -let err_ft = with_output_to stderr +let err_ft = ref Format.err_formatter +let _ = set_gp !err_ft deep_gp let deep_ft = with_output_to stdout let _ = set_gp deep_ft deep_gp |