From da845032e5bc0dd60faa23582ddc91ec55582aeb Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Fri, 28 Aug 2015 23:37:37 +0900
Subject: [PATCH] open-net-io should ior flags w/ non-block, not and them

---
 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 12bdf2b5..4399c92d 100644
--- a/lib/chibi/net.scm
+++ b/lib/chibi/net.scm
@@ -48,7 +48,7 @@
                 (cond-expand
                  (threads
                   (if (not (and (pair? o) (car o)))
-                      (let ((st (bitwise-and (get-file-descriptor-status sock)
+                      (let ((st (bitwise-ior (get-file-descriptor-status sock)
                                              open/non-block)))
                         (set-file-descriptor-status! sock st))))
                  (else #f))