[project @ 2005-11-03 15:15:14 by simonmar]
[ghc-hetmet.git] / ghc / rts / win32 / AwaitEvent.c
index d9e2cbc..d1dca63 100644 (file)
@@ -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,
@@ -47,3 +48,4 @@ awaitEvent(rtsBool wait)
           && emptyRunQueue(&MainCapability)
       );
 }
+#endif