author | wenzelm |
Fri, 06 Aug 1999 22:43:51 +0200 | |
changeset 7195 | a38dc0c6b244 |
parent 7194 | 5a80f69d6c62 |
child 7196 | c8d1002060e8 |
--- 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;