From 1f5e3b2472084434edf71a89c4764d1509e8e9b0 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 20 Mar 2006 09:11:23 +0000 Subject: [PATCH] fix Win32 build --- ghc/rts/win32/AwaitEvent.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/rts/win32/AwaitEvent.c b/ghc/rts/win32/AwaitEvent.c index d1dca63..43e188f 100644 --- 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) ); } -- 1.7.10.4