ignore empty messages even on tty, e.g. relevant for Isabelle_System.bash_output err output;
authorwenzelm
Fri, 25 May 2012 11:18:32 +0200
changeset 47999 3ffd885abe00
parent 47998 969457d93f75
child 48000 880f1693299a
ignore empty messages even on tty, e.g. relevant for Isabelle_System.bash_output err output;
src/Pure/General/output.ML
--- a/src/Pure/General/output.ML	Thu May 24 23:44:16 2012 +0200
+++ b/src/Pure/General/output.ML	Fri May 25 11:18:32 2012 +0200
@@ -91,9 +91,8 @@
   val writeln_fn = Unsynchronized.ref physical_writeln;
   val urgent_message_fn = Unsynchronized.ref (fn s => ! writeln_fn s);
   val tracing_fn = Unsynchronized.ref (fn s => ! writeln_fn s);
-  val warning_fn = Unsynchronized.ref (physical_stdout o suffix "\n" o prefix_lines "### ");
-  val error_fn =
-    Unsynchronized.ref (fn (_: serial, s) => physical_stdout (suffix "\n" (prefix_lines "*** " s)));
+  val warning_fn = Unsynchronized.ref (physical_writeln o prefix_lines "### ");
+  val error_fn = Unsynchronized.ref (fn (_: serial, s) => physical_writeln (prefix_lines "*** " s));
   val prompt_fn = Unsynchronized.ref physical_stdout;
   val status_fn = Unsynchronized.ref (fn _: output => ());
   val report_fn = Unsynchronized.ref (fn _: output => ());