Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-16 17:37:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

open-net-io should ior flags w/ non-block, not and them

Browse source
This commit is contained in:
Alex Shinn 2015-08-28 23:37:37 +09:00
parent d40ae87fe9
commit da845032e5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/net.scm
View file

@ -48,7 +48,7 @@
(cond-expand (cond-expand
(threads (threads
(if (not (and (pair? o) (car o))) (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))) open/non-block)))
(set-file-descriptor-status! sock st)))) (set-file-descriptor-status! sock st))))
(else #f)) (else #f))