annotate tests/threads.ur @ 2307:6ae9a2784a45

Return to working version mode
author Adam Chlipala <adam@chlipala.net>
date Sun, 20 Dec 2015 14:39:50 -0500
parents 2197f0e24a9f
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