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))) (lp (address-info-next addr)))
(else (else
(cond-expand (cond-expand
(threads (set-file-descriptor-flags! sock open/non-block)) (threads (set-file-descriptor-status! sock open/non-block))
(else #f)) (else #f))
(list sock (list sock
(open-input-file-descriptor sock #t) (open-input-file-descriptor sock #t)