bytevector size for doing select has been fixed. It used to be 8

times larger than needed.

scheme/ikarus.io.ss

@@ -2208,9 +2208,10 @@
 
     (define (do-select)
       (let ([n (add1 (get-max-fd))])
-        (let ([rbv (make-bytevector n 0)]
-              [wbv (make-bytevector n 0)]
-              [xbv (make-bytevector n 0)])
+        (let ([vecsize (div (+ n 7) 8)])
+          (let ([rbv (make-bytevector vecsize 0)]
+                [wbv (make-bytevector vecsize 0)]
+                [xbv (make-bytevector vecsize 0)])
             ;;; add all fds to their bytevectors depending on type
             (for-each 
               (lambda (t) 
@@ -2252,7 +2253,7 @@
                          (set! in-queue (cons t in-queue))])))))
               (let ([ls pending])
                 (set! pending '())
-              ls)))))
+                ls))))))
     )
 
   

scheme/last-revision

@@ -1 +1 @@
-1500
+1501