X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FCapability.c;h=9294949e5bc57067bdeaca399a892af6d4c8306a;hb=2fe38b5fb0957f9428864afd69ad3ccd82fae3d0;hp=8cfcba0b88c34fc6e3ad4c7b865041ff62b0601f;hpb=03a58fc9816fbd5df44adb9d77afdbf9944cc120;p=ghc-hetmet.git

diff --git a/rts/Capability.c b/rts/Capability.c
index 8cfcba0..9294949 100644
--- a/rts/Capability.c
+++ b/rts/Capability.c
@@ -77,7 +77,7 @@ findSpark (Capability *cap)
   rtsBool retry;
   nat i = 0;
 
-  if (!emptyRunQueue(cap)) {
+  if (!emptyRunQueue(cap) || cap->returning_tasks_hd != NULL) {
       // If there are other threads, don't try to run any new
       // sparks: sparks might be speculative, we don't want to take
       // resources away from the main computation.