fix Win32 build

[ghc-hetmet.git] / ghc / rts / win32 / AwaitEvent.c

diff --git a/ghc/rts/win32/AwaitEvent.c b/ghc/rts/win32/AwaitEvent.c
index d1dca63..43e188f 100644 (file)
--- a/ghc/rts/win32/AwaitEvent.c
+++ b/ghc/rts/win32/AwaitEvent.c
@@ -44,7 +44,7 @@ awaitEvent(rtsBool wait)
     //  - new threads have arrived
 
   } while (wait
-          && !interrupted
+          && sched_state == SCHED_RUNNING
           && emptyRunQueue(&MainCapability)
       );
 }