X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FMessages.c;h=5e0fa2544f8e4d7f567e6ebb4f57351e1f485b50;hb=608311e931b84dc49f6b57bbda85b83c4878baf4;hp=f7cb809351306723295e1da20a9bef7e252bcfe2;hpb=6608962356185ad7dd531050a35382c8b70ef827;p=ghc-hetmet.git

diff --git a/rts/Messages.c b/rts/Messages.c
index f7cb809..5e0fa25 100644
--- a/rts/Messages.c
+++ b/rts/Messages.c
@@ -175,6 +175,7 @@ nat messageBlackHole(Capability *cap, MessageBlackHole *msg)
     // all.
     if (info != &stg_BLACKHOLE_info && 
         info != &stg_CAF_BLACKHOLE_info && 
+        info != &__stg_EAGER_BLACKHOLE_info &&
         info != &stg_WHITEHOLE_info) {
         // if it is a WHITEHOLE, then a thread is in the process of
         // trying to BLACKHOLE it.  But we know that it was once a