X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FUpdates.h;h=c04005b49b641d2ffe4612ec94c46332d9a93871;hp=3461c91144dfa553393cdde3d8191ba1302bf8e4;hb=65bb9b5ae78ee29100ea6bf5617b0fdbc0a100bd;hpb=9b0be04d7d23a4ccce0275f3a7c519d9b614f3a2

diff --git a/rts/Updates.h b/rts/Updates.h
index 3461c91..c04005b 100644
--- a/rts/Updates.h
+++ b/rts/Updates.h
@@ -280,8 +280,9 @@ no_slop:
   {								\
     bdescr *bd;							\
 								\
-    /* cas(p1, 0, &stg_WHITEHOLE_info); */			\
-    ASSERT( (P_)p1 != (P_)p2 && !closure_IND(p1) );		\
+    ASSERT( (P_)p1 != (P_)p2 );                                 \
+    /* not necessarily true: ASSERT( !closure_IND(p1) ); */     \
+    /* occurs in RaiseAsync.c:raiseAsync() */                   \
     DEBUG_FILL_SLOP(p1);					\
     LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC(p1);			\
     ((StgInd *)p1)->indirectee = p2;				\