[project @ 2003-12-15 16:43:45 by simonmar]

[ghc-hetmet.git] / ghc / rts / Capability.c

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index dd5d0e7..1d78982 100644 (file)
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -201,10 +201,8 @@ void releaseCapability(Capability* cap
     signalCondition(&thread_ready_cond);
     startSchedulerTaskIfNecessary();  // if there is more work to be done,
                                      // we'll need a new thread
-  }
-#endif
-#ifdef RTS_SUPPORTS_THREADS
     IF_DEBUG(scheduler, sched_belch("worker: released capability"));
+  }
 #endif
   return;
 }