4 -- check that we can still kill a thread that is blocked on
5 -- delivering an exception to us.
7 main_thread <- myThreadId
9 sub_thread <- forkIO (do
11 raiseInThread main_thread (ErrorCall "foo")
13 blockAsyncExceptions (do
15 sum [1..10000] `seq` -- to be sure the other thread is now blocked