From 69434370cb4c9ac170e0adae4a482f48a21fd2e0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 1 Jul 2011 15:04:39 -0600
Subject: [PATCH] allow fd 0 to be used as place signaling pipe

---
 src/racket/src/port.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/port.c b/src/racket/src/port.c
index 4bea5deadc..d78b21bb7c 100644
--- a/src/racket/src/port.c
+++ b/src/racket/src/port.c
@@ -722,7 +722,7 @@ void scheme_check_place_port_ok()
 {
 # if defined(FILES_HAVE_FDS)
 #  ifndef USE_OSKIT_CONSOLE
-  if (!external_event_fd) {
+  if (!external_event_fd && !put_external_event_fd) {
     scheme_signal_error("place: scheduler pipe failed");
   }
 #  endif