Commit bdad103c authored by simonmar's avatar simonmar

[project @ 2000-03-17 10:01:29 by simonmar]

Add test for garbage collecting threads.
parent 6169525a
import IO
import Concurrent
import Exception
main = do
forkIO (catchAllIO (do { m <- newEmptyMVar; takeMVar m })
(\e -> putStrLn ("caught: " ++ show e)))
let x = sum [1..10000]
x `seq` print x
caught: thread blocked indefinitely
50005000
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment