From 7bf475b7cca162a12ce2143aebcf5c920af997c7 Mon Sep 17 00:00:00 2001
From: Arek Korbik <arkadini@gmail.com>
Date: Thu, 29 Mar 2012 21:17:20 +0200
Subject: [PATCH] Fix sleeping on infinite timeouts.

Closes PR 12661
---
 src/racket/src/thread.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/racket/src/thread.c b/src/racket/src/thread.c
index e7efb98c6e..954baa11de 100644
--- a/src/racket/src/thread.c
+++ b/src/racket/src/thread.c
@@ -3963,8 +3963,8 @@ static int check_sleep(int need_activity, int sleep_now)
       float mst = (float)max_sleep_time;
 
       /* Make sure that mst didn't go to infinity: */
-      if ((double)mst > (2 * max_sleep_time)) {
-	mst = 100000000.0;
+      if (mst && !((double)mst < (2 * max_sleep_time))) {
+        mst = 1000000.0;
       }
 
       {