Ur/Web: tests/threads.ur annotate

Avoid thread death via message receive

author	Adam Chlipala <adamc@hcoop.net>
date	Thu, 16 Apr 2009 13:00:40 -0400
parents
children

rev	line source
adamc@728	1 fun main () =
adamc@728	2 buf <- Buffer.create;
adamc@728	3 let
adamc@728	4 fun loop1 () =
adamc@728	5 Buffer.write buf "A";
adamc@728	6 sleep 9;
adamc@728	7 loop1 ()
adamc@728	8
adamc@728	9 fun loop2 () =
adamc@728	10 Buffer.write buf "B";
adamc@728	11 sleep 9;
adamc@728	12 error <xml>Darn</xml>
adamc@728	13 loop2 ()
adamc@728	14 in
adamc@728	15 return <xml><body onload={spawn (loop1 ()); loop2 ()}>
adamc@728	16 <dyn signal={Buffer.render buf}/>
adamc@728	17 </body></xml>
adamc@728	18 end

Mercurial > urweb