blob: 447b7a74b27613c1b4ac75d10c74143c80e5c4fb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
|
