equal
deleted
inserted
replaced
116 Output.status_fn := standard_message [] Markup.statusN; |
116 Output.status_fn := standard_message [] Markup.statusN; |
117 Output.report_fn := standard_message [] Markup.reportN; |
117 Output.report_fn := standard_message [] Markup.reportN; |
118 Output.result_fn := |
118 Output.result_fn := |
119 (fn props => fn s => standard_message (props @ serial_props ()) Markup.resultN s); |
119 (fn props => fn s => standard_message (props @ serial_props ()) Markup.resultN s); |
120 Output.writeln_fn := (fn s => standard_message (serial_props ()) Markup.writelnN s); |
120 Output.writeln_fn := (fn s => standard_message (serial_props ()) Markup.writelnN s); |
|
121 Output.state_fn := (fn s => standard_message (serial_props ()) Markup.stateN s); |
|
122 Output.information_fn := (fn s => standard_message (serial_props ()) Markup.informationN s); |
121 Output.tracing_fn := |
123 Output.tracing_fn := |
122 (fn s => (update_tracing (); standard_message (serial_props ()) Markup.tracingN s)); |
124 (fn s => (update_tracing (); standard_message (serial_props ()) Markup.tracingN s)); |
123 Output.warning_fn := (fn s => standard_message (serial_props ()) Markup.warningN s); |
125 Output.warning_fn := (fn s => standard_message (serial_props ()) Markup.warningN s); |
124 Output.error_message_fn := |
126 Output.error_message_fn := |
125 (fn (i, s) => standard_message (Markup.serial_properties i) Markup.errorN s); |
127 (fn (i, s) => standard_message (Markup.serial_properties i) Markup.errorN s); |