annotate tests/threads.ur @ 2214:edd634b889d0

Add mono_inline.sml (which was left out of last commit).
author Ziv Scully <ziv@mit.edu>
date Tue, 14 Oct 2014 18:07:09 -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