equal
deleted
inserted
replaced
57 val system_message_fn: (output list -> unit) Unsynchronized.ref |
57 val system_message_fn: (output list -> unit) Unsynchronized.ref |
58 val status_fn: (output list -> unit) Unsynchronized.ref |
58 val status_fn: (output list -> unit) Unsynchronized.ref |
59 val report_fn: (output list -> unit) Unsynchronized.ref |
59 val report_fn: (output list -> unit) Unsynchronized.ref |
60 val result_fn: (Properties.T -> output list -> unit) Unsynchronized.ref |
60 val result_fn: (Properties.T -> output list -> unit) Unsynchronized.ref |
61 val protocol_message_fn: Output_Primitives.protocol_message_fn Unsynchronized.ref |
61 val protocol_message_fn: Output_Primitives.protocol_message_fn Unsynchronized.ref |
62 val init_channels: unit -> unit |
|
63 end; |
62 end; |
64 |
63 |
65 structure Private_Output: PRIVATE_OUTPUT = |
64 structure Private_Output: PRIVATE_OUTPUT = |
66 struct |
65 struct |
67 |
66 |