X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fwin32%2FAsyncIO.c;h=688127513f9a18322f69696cd785caa75e244902;hb=7f59c72a41fbea72eef1f207439918784fbbe08d;hp=12893f35364e0dbe1cb85e063ead35ac7ca6c090;hpb=16549a60f0e72083adaac90f46e28ca3361ef201;p=ghc-hetmet.git

diff --git a/ghc/rts/win32/AsyncIO.c b/ghc/rts/win32/AsyncIO.c
index 12893f3..6881275 100644
--- a/ghc/rts/win32/AsyncIO.c
+++ b/ghc/rts/win32/AsyncIO.c
@@ -286,7 +286,7 @@ start:
 			/* Terminates the run queue + this inner for-loop. */
 			tso->link = END_TSO_QUEUE;
 			tso->why_blocked = NotBlocked;
-			PUSH_ON_RUN_QUEUE(tso);
+			pushOnRunQueue(&MainCapability, tso);
 			break;
 		    }
 		    break;