diff --git a/racket/src/racket/src/port.c b/racket/src/racket/src/port.c index d4b41e7141..78d976a17d 100644 --- a/racket/src/racket/src/port.c +++ b/racket/src/racket/src/port.c @@ -10667,6 +10667,8 @@ static void default_sleep(float v, void *fds) if (v <= 0.0) timeout = -1; + else if (v > 100000) + timeout = 100000000; else { timeout = (int)(v * 1000.0); if (timeout < 0)