From 0daf85988d7f0dc10cf00ed9a62f55659413479d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 22 Nov 2004 12:41:20 +0000
Subject: [PATCH] [project @ 2004-11-22 12:41:20 by simonmar] threadRunnable:
 Fix (probably harmless) buglet

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

diff --git a/ghc/rts/Capability.c b/ghc/rts/Capability.c
index 62f205d..e839a6c 100644
--- 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();
-- 
1.7.10.4