[project @ 2004-11-22 12:41:20 by simonmar]

threadRunnable: Fix (probably harmless) buglet

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index 62f205d..e839a6c 100644 (file)
--- a/ghc/rts/Capability.c
+++ b/ghc/rts/Capability.c
@@ -412,7 +412,7 @@ void
 threadRunnable ( void )
 {
 #if defined(RTS_SUPPORTS_THREADS)
-    if ( !noCapabilities && ANY_WORK_TO_DO() && rts_n_waiting_tasks > 0 ) {
+    if ( !noCapabilities() && ANY_WORK_TO_DO() && rts_n_waiting_tasks > 0 ) {
        signalCondition(&thread_ready_cond);
     }
     startSchedulerTaskIfNecessary();