[project @ 2005-11-07 10:20:43 by simonmar]

Fix non-threaded build.

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 5f186b2..93a64d8 100644 (file)
--- 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);