comparison demo/roundTrip.ur @ 908:ed06e25c70ef

Convert to requiring explicit 'rpc' marker
author Adam Chlipala <adamc@hcoop.net>
date Sat, 22 Aug 2009 12:55:18 -0400
parents 15ddd64a5113
children
comparison
equal deleted inserted replaced
907:5fe49effbc83 908:ed06e25c70ef
19 Buffer.write buf ("(" ^ v.1 ^ ", " ^ show v.2 ^ ", " ^ show v.3 ^ ")"); 19 Buffer.write buf ("(" ^ v.1 ^ ", " ^ show v.2 ^ ", " ^ show v.3 ^ ")");
20 receiver () 20 receiver ()
21 21
22 fun sender s n f = 22 fun sender s n f =
23 sleep 2000; 23 sleep 2000;
24 writeBack (s, n, f); 24 rpc (writeBack (s, n, f));
25 sender (s ^ "!") (n + 1) (f + 1.23) 25 sender (s ^ "!") (n + 1) (f + 1.23)
26 in 26 in
27 return <xml><body onload={spawn (receiver ()); sender "" 0 0.0}> 27 return <xml><body onload={spawn (receiver ()); sender "" 0 0.0}>
28 <dyn signal={Buffer.render buf}/> 28 <dyn signal={Buffer.render buf}/>
29 </body></xml> 29 </body></xml>