mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-16 09:27:33 +02:00
open-net-io should ior flags w/ non-block, not and them
This commit is contained in:
parent
d40ae87fe9
commit
da845032e5
1 changed files with 1 additions and 1 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue