From cf1864d8d04b0a2f53aac81bab1a59db27286dc1 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 23 Jan 2015 22:37:43 +0900
Subject: [PATCH] Fixing typo (want set-file-descriptor-status!, not -flags! to
 set non-blocking).

---
 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 7f1d3947..5895994c 100644
--- a/lib/chibi/net.scm
+++ b/lib/chibi/net.scm
@@ -46,7 +46,7 @@
                 (lp (address-info-next addr)))
                (else
                 (cond-expand
-                 (threads (set-file-descriptor-flags! sock open/non-block))
+                 (threads (set-file-descriptor-status! sock open/non-block))
                  (else #f))
                 (list sock
                       (open-input-file-descriptor sock #t)