From 5f1cd1a381be95d2659b7cc6f5a47343244cf078 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 13 May 2011 07:27:32 -0600
Subject: [PATCH] implement mzrt_sleep() for Windows

---
 src/racket/src/mzrt.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/racket/src/mzrt.c b/src/racket/src/mzrt.c
index fac733ae0e..30b06862b7 100644
--- a/src/racket/src/mzrt.c
+++ b/src/racket/src/mzrt.c
@@ -110,6 +110,7 @@ void mzrt_set_segfault_debug_handler()
 void mzrt_sleep(int seconds)
 {
 #ifdef WIN32
+  Sleep(seconds * 1000);
 #else
   struct timespec set;
   struct timespec rem;