X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=Control%2FConcurrent.hs;h=8df665e37cae5166202a7cd46ebac4a89ef1d8c8;hb=b73537367458c1307177d60d44b85516b661bd99;hp=e820d17bdad41f151dae9d3f1dbd3e3447cf1389;hpb=54fa1fd59bf04ce922840a6a55d9704a2cab273e;p=ghc-base.git

diff --git a/Control/Concurrent.hs b/Control/Concurrent.hs
index e820d17..8df665e 100644
--- a/Control/Concurrent.hs
+++ b/Control/Concurrent.hs
@@ -230,8 +230,8 @@ real_handler ex =
 	AsyncException ThreadKilled  -> return ()
 
 	-- report all others:
-	AsyncException StackOverflow -> reportStackOverflow False
-	other       -> reportError False other
+	AsyncException StackOverflow -> reportStackOverflow
+	other       -> reportError other
 
 #endif /* __GLASGOW_HASKELL__ */
 
@@ -506,9 +506,9 @@ runInUnboundThread action = do
 >    forkChild :: IO () -> IO ()
 >    forkChild io = do
 >    	 mvar <- newEmptyMVar
->    	 forkIO (io `finally` putMVar mvar ())
 >    	 childs <- takeMVar children
 >    	 putMVar children (mvar:childs)
+>    	 forkIO (io `finally` putMVar mvar ())
 >
 >     main =
 >     	later waitForChildren $