src/Pure/General/output.ML
changeset 71637 45c2b8cf1b26
parent 70991 f9f7c34b7dd4
child 73834 364bac6691de
equal deleted inserted replaced
71632:c1bc38327bc2 71637:45c2b8cf1b26
    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