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

Updating open-net-io to check for filenos instead of integers.

Browse source
This commit is contained in:
Alex Shinn 2012-10-14 20:46:10 +09:00
parent 3d161d4d2f
commit eb88a24049
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

@ -30,7 +30,7 @@
(let ((sock (socket (address-info-family addr) (let ((sock (socket (address-info-family addr)
(address-info-socket-type addr) (address-info-socket-type addr)
(address-info-protocol addr)))) (address-info-protocol addr))))
(if (negative? sock) (if (not (fileno? sock))
(lp (address-info-next addr)) (lp (address-info-next addr))
(cond (cond
((negative? ((negative?