X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Frts%2FSchedule.c;h=6e14fc58db263f5941b83ce5d95e97305144cac7;hp=bc091be70b17fbfff773fe5cd7bad7f9f3c73114;hb=0542fa233d82cabb178505ce7e5ebab8ac0ba0e9;hpb=18abe9c04d5fc1695ad3657bc3180f92b892a871

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index bc091be..6e14fc5 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1,5 +1,5 @@
 /* ---------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.183 2003/12/16 13:27:32 simonmar Exp $
+ * $Id: Schedule.c,v 1.184 2003/12/18 12:24:59 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2003
  *
@@ -491,6 +491,7 @@ schedule( StgMainThread *mainThread USED_WHEN_RTS_SUPPORTS_THREADS,
                 // return, so let's pass our capability directly to
                 // that thread.
 		passCapability(&m->bound_thread_cond);
+		continue;
             }
           }
 	}