annotate tests/threads.ur @ 1526:b5d78407886d

Fix to use of .hg_archival.txt (thanks to Austin Seipp)
author Adam Chlipala <adam@chlipala.net>
date Tue, 02 Aug 2011 20:17:41 -0400
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