From 1996af4376c70c8fa33b1a4068fe613523517b90 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 19 Apr 2005 14:24:55 +0000
Subject: [PATCH] [project @ 2005-04-19 14:24:55 by simonmar] main_thread
 double-linkage bug

---
 ghc/rts/Schedule.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index a5f133e..079238d 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1807,7 +1807,7 @@ scheduleHandleThreadFinished( StgMainThread *mainThread
 	      mainThread->prev->link = mainThread->link;
 	  }
 	  if (mainThread->link != NULL) {
-	      mainThread->link->prev = NULL;
+	      mainThread->link->prev = mainThread->prev;
 	  }
 	  releaseCapability(cap);
 	  return rtsTrue; // tells schedule() to return
-- 
1.7.10.4