Bug in GHC 6.2.1

[Simon Marlow]

> This is the program:
> 
> import Control.Concurrent
> 
> main = do
>   m <- newEmptyMVar
>   forkIO $ do
>     s <- getLine
>     putMVar m s
>   s <- takeMVar m
>   putStrLn s
> 
> > ghc --make Bug.hs                          [21:54]
> Chasing modules from: Bug.hs
> Compiling Main             ( Bug.hs, Bug.o )
> Linking ...
> > ./a.out                                    [21:57]
> # Now hit Ctrl-C
> a.out: internal error: main thread has been GC'd
>     Please report this as a bug to glasgow-haskell-bugs at haskell.org,
>     or http://www.sourceforge.net/projects/ghc/

Thanks, that's a bug.  I've fixed it in CVS.

As far as I can tell, only aborting a program with Ctrl-C should trigger
the bug.

Cheers,
	Simon