Fixes bug 205437: socket errors not being reported

2008-03-24 00:01:22 -04:00
parent 884f3fe921
commit fc92ec8e9f
3 changed files with 12 additions and 9 deletions
@@ -2073,7 +2073,7 @@
  (define (set-fd-nonblocking fd who id)
    (let ([rv (foreign-call "ikrt_make_fd_nonblocking" fd)])
      (unless (eq? rv 0) 
-        (io-error who id fd))))
+        (io-error who id rv))))

  (define (socket->ports socket who id block?)
    (if (< socket 0)