From 59d3663106ddcdcbe52f981bfcd2aa15b64ba25b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 5 Sep 2014 10:05:31 -0600
Subject: [PATCH] ffi/unsafe win32: fix inefficiency in call-in-orig-thread
 mode

The problem made simultaneous rendering of "plot" and "math"
documentation about 10 times slower than it should be.
---
 racket/src/racket/src/port.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/port.c b/racket/src/racket/src/port.c
index e742966511..becb9b64b0 100644
--- a/racket/src/racket/src/port.c
+++ b/racket/src/racket/src/port.c
@@ -10803,7 +10803,7 @@ void scheme_wait_until_signal_received(void)
 # endif
 #else
 # if defined(WINDOWS_PROCESSES) || defined(WINDOWS_FILE_HANDLES)
-  WaitForSingleObject((HANDLE)scheme_break_semaphore, 0);
+  WaitForSingleObject((HANDLE)scheme_break_semaphore, INFINITE);
 # endif
 #endif