Fixing typo (want set-file-descriptor-status!, not -flags! to set non-blocking).

This commit is contained in:
Alex Shinn 2015-01-23 22:37:43 +09:00
parent a2600da6b9
commit cf1864d8d0

View file

@ -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)