made SML happy;
authorwenzelm
Fri, 06 Aug 1999 22:43:51 +0200
changeset 7195 a38dc0c6b244
parent 7194 5a80f69d6c62
child 7196 c8d1002060e8
made SML happy;
src/Pure/Interface/proof_general.ML
--- a/src/Pure/Interface/proof_general.ML	Fri Aug 06 22:37:57 1999 +0200
+++ b/src/Pure/Interface/proof_general.ML	Fri Aug 06 22:43:51 1999 +0200
@@ -101,7 +101,7 @@
 (* messages *)
 
 val plain_output = std_output o suffix "\n";
-val plain_writeln = Library.setmp writeln_fn plain_output;
+fun plain_writeln x = Library.setmp writeln_fn plain_output x;
 
 fun decorate_lines bg en "" = plain_output o enclose bg en
   | decorate_lines bg en prfx = plain_output o enclose bg en o prefix_lines prfx;