Commit 729463bb authored by sof's avatar sof
Browse files

[project @ 2002-04-13 05:12:25 by sof]

kill thread B too
parent 24b3eb64
......@@ -13,7 +13,7 @@ choose a b = do
b_id <- myForkIO (b `seq` takeMVar ready >> putMVar answer b)
it <- takeMVar answer
killThread a_id
-- killThread b_id
killThread b_id
return it
-- We need to catch the exception raised by killThread and ignore it.
......
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