From a837a348cb76b36e502b7dcf6af8f0ff90514f24 Mon Sep 17 00:00:00 2001
From: "simonmar@microsoft.com" <unknown>
Date: Wed, 21 Nov 2007 16:47:36 +0000
Subject: [PATCH] assertion fix

---
 rts/sm/Evac.c |    7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 2fcc6c9..295a030 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -164,8 +164,11 @@ unchain_thunk_selectors(StgSelector *p, StgClosure *val)
     prev = NULL;
     while (p)
     {
-        ASSERT(p->header.info == &stg_BLACKHOLE_info
-              || p->header.info == &stg_WHITEHOLE_info);
+#ifdef THREADED_RTS
+        ASSERT(p->header.info == &stg_WHITEHOLE_info);
+#else
+        ASSERT(p->header.info == &stg_BLACKHOLE_info);
+#endif
         prev = (StgSelector*)((StgClosure *)p)->payload[0];
 
         // Update the THUNK_SELECTOR with an indirection to the
-- 
1.7.10.4