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 d9e2cbc..43e188f 100644 (file)
--- a/ghc/rts/win32/AwaitEvent.c
+++ b/ghc/rts/win32/AwaitEvent.c
@@ -1,3 +1,4 @@
+#if !defined(THREADED_RTS) /* to the end */
 /*
  * Wait/check for external events. Periodically, the
  * Scheduler checks for the completion of external operations,
@@ -43,7 +44,8 @@ awaitEvent(rtsBool wait)
     //  - new threads have arrived
 
   } while (wait
-          && !interrupted
+          && sched_state == SCHED_RUNNING
           && emptyRunQueue(&MainCapability)
       );
 }
+#endif