[GHC] #3279: Segmentation fault in reactive program

[GHC]

#3279: Segmentation fault in reactive program
-------------------------------+--------------------------------------------
    Reporter:  Baughn          |        Owner:  simonmar        
        Type:  bug             |       Status:  new             
    Priority:  high            |    Milestone:  6.12.1          
   Component:  Runtime System  |      Version:  6.11            
    Severity:  normal          |   Resolution:                  
    Keywords:                  |   Difficulty:  Unknown         
    Testcase:                  |           Os:  Unknown/Multiple
Architecture:  x86_64 (amd64)  |  
-------------------------------+--------------------------------------------
Comment (by Baughn):

 Formatting messed up. Corrected, here:

 Before:

 race a b = block $ do[[BR]]
   v <- newEmptyMVar[[BR]]
   let f x = forkIO $ putCatch (unblock x) v[[BR]]
   ta <- f a[[BR]]
   tb <- f b[[BR]]

 After:

 race a b = block $ do[[BR]]
   v <- newEmptyMVar[[BR]]
   let f x = forkIO $ putCatch (unblock x) v[[BR]]
   ta <- f a[[BR]]
   tb <- f b[[BR]]

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/3279#comment:9>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler