~ chicken-core (chicken-5) 543624dead79e6169033adcfa478151e3c992158

commit 543624dead79e6169033adcfa478151e3c992158
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jun 21 10:11:42 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jun 21 10:11:42 2011 +0200

    Revert "actually clear/set fdsets for error-fdset"
    
    This reverts commit 7cd875bb13f2efd2af83a9f8d82217101e4e85a3.
    
    This might break something and will be postponed for 4.7.2

diff --git a/scheduler.scm b/scheduler.scm
index 975c507f..a1a177e6 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -31,7 +31,7 @@
   (hide ready-queue-head ready-queue-tail ##sys#timeout-list
 	##sys#update-thread-state-buffer ##sys#restore-thread-state-buffer
 	remove-from-ready-queue ##sys#unblock-threads-for-i/o ##sys#force-primordial
-	fdset-input-set fdset-output-set fdset-error-set fdset-clear
+	fdset-input-set fdset-output-set fdset-clear
 	fdset-select-timeout fdset-set fdset-test
 	create-fdset stderr
 	##sys#clear-i/o-state-for-thread! ##sys#abandon-mutexes) 
@@ -367,8 +367,7 @@ EOF
 (define fdset-clear
   (foreign-lambda* void ()
     "FD_ZERO(&C_fdset_input);"
-    "FD_ZERO(&C_fdset_output);"
-    "FD_ZERO(&C_fdset_error);") )
+    "FD_ZERO(&C_fdset_output);") )
 
 (define fdset-input-set
   (foreign-lambda* void ([int fd])
@@ -378,13 +377,8 @@ EOF
   (foreign-lambda* void ([int fd])
     "FD_SET(fd, &C_fdset_output);" ) )
 
-(define fdset-error-set
-  (foreign-lambda* void ([int fd])
-    "FD_SET(fd, &C_fdset_error);" ) )
-
 (define (fdset-set fd i/o)
   (dbg "setting fdset for " fd " to " i/o)
-  (fdset-error-set fd)
   (case i/o
     ((#t #:input) (fdset-input-set fd))
     ((#f #:output) (fdset-output-set fd))