X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FCapability.c;h=e839a6c4da6f2f699afdffa953b66226c84690f8;hb=6b29d930b1a8b4fbb5925099e51ecc0a2483bf54;hp=62f205d4d474244da57df51c1abe7484cbf9dbad;hpb=bb01a96bea6bd7808332d43a5bed78d1aff4a3fd;p=ghc-hetmet.git

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();