diff tests/threads.ur @ 728:2197f0e24a9f

Avoid thread death via message receive
author Adam Chlipala <adamc@hcoop.net>
date Thu, 16 Apr 2009 13:00:40 -0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/threads.ur	Thu Apr 16 13:00:40 2009 -0400
@@ -0,0 +1,18 @@
+fun main () =
+    buf <- Buffer.create;
+    let
+        fun loop1 () =
+            Buffer.write buf "A";
+            sleep 9;
+            loop1 ()
+
+        fun loop2 () =
+            Buffer.write buf "B";
+            sleep 9;
+            error <xml>Darn</xml>
+            loop2 ()
+    in
+        return <xml><body onload={spawn (loop1 ()); loop2 ()}>
+          <dyn signal={Buffer.render buf}/>
+        </body></xml>
+    end