Fixed problem shutting down servers on cygwin.

2008-03-24 13:25:59 -04:00 · 2008-03-24 13:25:59 -04:00 · 3c3fec3908
parent 12a3f7e19b
commit 3c3fec3908
2 changed files with 5 additions and 1 deletions
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1426
+1427
--- 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();
  }