From eb88a24049ad7cde367fd38ca0d1cd5b137b3551 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 14 Oct 2012 20:46:10 +0900
Subject: [PATCH] Updating open-net-io to check for filenos instead of
 integers.

---
 lib/chibi/net.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/chibi/net.scm b/lib/chibi/net.scm
index 0cbc8d88..4eed01a4 100644
--- a/lib/chibi/net.scm
+++ b/lib/chibi/net.scm
@@ -30,7 +30,7 @@
         (let ((sock (socket (address-info-family addr)
                             (address-info-socket-type addr)
                             (address-info-protocol addr))))
-          (if (negative? sock)
+          (if (not (fileno? sock))
               (lp (address-info-next addr))
               (cond
                ((negative?