From 3c3fec3908e580107411c9e6cfb8e0d238358ddb Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Mon, 24 Mar 2008 13:25:59 -0400
Subject: [PATCH] Fixed problem shutting down servers on cygwin.

---
 scheme/last-revision | 2 +-
 src/ikarus-io.c      | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/scheme/last-revision b/scheme/last-revision
index 7fb11c5..b322e68 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1426
+1427
diff --git a/src/ikarus-io.c b/src/ikarus-io.c
index 557c14a..fee8138 100644
--- a/src/ikarus-io.c
+++ b/src/ikarus-io.c
@@ -262,7 +262,11 @@ ikrt_accept(ikptr s, ikpcb* pcb){
 
 ikptr
 ikrt_shutdown(ikptr s, ikpcb* pcb){
+#ifdef __CYGWIN__
+  int err = close(unfix(s));
+#else
   int err = shutdown(unfix(s), SHUT_RDWR);
+#endif
   if(err < 0){
     return ikrt_io_error();
   }