equal
deleted
inserted
replaced
124 Output.warning_fn := (fn s => standard_message (serial_props ()) Markup.warningN s); |
124 Output.warning_fn := (fn s => standard_message (serial_props ()) Markup.warningN s); |
125 Output.error_message_fn := |
125 Output.error_message_fn := |
126 (fn (i, s) => standard_message (Markup.serial_properties i) Markup.errorN s); |
126 (fn (i, s) => standard_message (Markup.serial_properties i) Markup.errorN s); |
127 Output.system_message_fn := message Markup.systemN []; |
127 Output.system_message_fn := message Markup.systemN []; |
128 Output.protocol_message_fn := message Markup.protocolN; |
128 Output.protocol_message_fn := message Markup.protocolN; |
129 Output.urgent_message_fn := ! Output.writeln_fn; |
|
130 Output.prompt_fn := ignore; |
129 Output.prompt_fn := ignore; |
131 message Markup.initN [] [Session.welcome ()]; |
130 message Markup.initN [] [Session.welcome ()]; |
132 msg_channel |
131 msg_channel |
133 end; |
132 end; |
134 |
133 |