equal
deleted
inserted
replaced
202 (fn mode => (mode @ default_modes1) |> fold (update op =) default_modes2); |
202 (fn mode => (mode @ default_modes1) |> fold (update op =) default_modes2); |
203 |
203 |
204 val channel = rendezvous (); |
204 val channel = rendezvous (); |
205 val msg_channel = init_channels channel; |
205 val msg_channel = init_channels channel; |
206 val _ = Session.init_protocol_handlers (); |
206 val _ = Session.init_protocol_handlers (); |
207 val _ = (loop |> Unsynchronized.setmp Toplevel.quiet true) channel; |
207 val _ = loop channel; |
208 in Message_Channel.shutdown msg_channel end); |
208 in Message_Channel.shutdown msg_channel end); |
209 |
209 |
210 fun init_fifos fifo1 fifo2 = init (fn () => System_Channel.fifo_rendezvous fifo1 fifo2); |
210 fun init_fifos fifo1 fifo2 = init (fn () => System_Channel.fifo_rendezvous fifo1 fifo2); |
211 fun init_socket name = init (fn () => System_Channel.socket_rendezvous name); |
211 fun init_socket name = init (fn () => System_Channel.socket_rendezvous name); |
212 |
212 |