From 7aad3eb9db1071a0c644e28b4d046b5cd241a32b Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 7 Nov 2005 10:20:43 +0000
Subject: [PATCH] [project @ 2005-11-07 10:20:43 by simonmar] Fix non-threaded
 build.

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

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 5f186b2..93a64d8 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -2059,8 +2059,10 @@ forkProcess(HsStablePtr *entry
 	}
 	RELEASE_LOCK(&sched_mutex);
 
+#if defined(THREADED_RTS)
 	// wipe our spare workers list.
 	cap->spare_workers = NULL;
+#endif
 
 	cap = rts_evalStableIO(cap, entry, NULL);  // run the action
 	rts_checkSchedStatus("forkProcess",cap);
-- 
1.7.10.4