From a7ae78f3cc9e297239ca3c8af39780b8133d8d7f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 24 Nov 2011 15:58:40 -0700
Subject: [PATCH] fix mac- and gui-specific GC bug

This bug was introduced indirectly in the switch to
poll()/epoll()/kevent().
---
 src/racket/src/port.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/racket/src/port.c b/src/racket/src/port.c
index 93f604f018..8c03b9478d 100644
--- a/src/racket/src/port.c
+++ b/src/racket/src/port.c
@@ -1276,6 +1276,10 @@ void scheme_clean_fd_set(void *fds)
 }
 
 int scheme_get_fd_limit(void *fds)
+  XFORM_SKIP_PROC
+/* This function must not allocate or call GC-cooperating functions.
+   It's constrained because it's used by default_sleep, which
+   must not allocate on Mac OS X. */
 {
   int limit, actual_limit;
   fd_set *rd, *wr, *ex;