From a1cc8d30a1e4e0f330002eacdd087c4114b56325 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 8 Apr 2009 15:40:21 +0000
Subject: [PATCH] fix MrEd Windows handle-block problem (PR 10183)

svn: r14467
---
 src/mred/mredmsw.cxx | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/mred/mredmsw.cxx b/src/mred/mredmsw.cxx
index 35b76b7c7c..bc100a3ced 100644
--- a/src/mred/mredmsw.cxx
+++ b/src/mred/mredmsw.cxx
@@ -931,6 +931,8 @@ void MrEdMSWSleep(float secs, void *fds)
       if (rps[result])
         ReleaseSemaphore(handles[result], 1, NULL);
     }
+
+    scheme_collapse_win_fd(fds); /* cleans up */
   } else if (wxTheApp->keep_going) {
     MsgWaitForMultipleObjects(0, NULL, FALSE,
 			      secs ? msecs : INFINITE,