Template Haskell Crash

[Wolfgang Thaller]

Compiling the following program causes GHC to segfault with the HEAD on 
both Mac OS X and Red Hat Linux/x86:

module THCrash where

import Language.Haskell.THSyntax

foo = [| 1 + 2 |]

$(sequence [val (pvar "bar") (normal foo) []])


Running the compiler with +RTS -DS (sanity checking) yields the 
following error messages:

On Mac OS X:
ghc-5.05: internal error: checkStackFrame: weird activation record 
found on stack (0x134fdd8).
On Linux, a segfault happens at Sanity.c line 85, in 
checkClosureShallow.


Cheers,

Wolfgang