scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

In socket-option operator and operand were swapped two times.

This commit is contained in:
mainzelm 2003-01-07 10:51:28 +00:00
parent 02e2c02e38
commit 5cd0763723
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scsh/network.scm
View File

@ -570,15 +570,15 @@
((value-option? option) ((value-option? option)
(%getsockopt (socket->fdes sock) level option)) (%getsockopt (socket->fdes sock) level option))
((linger-option? option) ((linger-option? option)
(apply (%getsockopt-linger (socket->fdes sock) level option) (apply (lambda (result/on-off time)
(lambda (result/on-off time) (if (= result/on-off 0) #f time))
(if (= result/on-off 0) #f time)))) (%getsockopt-linger (socket->fdes sock) level option)))
((timeout-option? option) ((timeout-option? option)
(apply (%getsockopt-timeout (socket->fdes sock) level option) (apply (lambda (result/secs usecs)
(lambda (result/secs usecs)
(cond ((= result/secs -1) (cond ((= result/secs -1)
(error "socket-option ~s ~s ~s" sock level option)) (error "socket-option ~s ~s ~s" sock level option))
(else (+ result/secs (/ usecs 1000))))))) (else (+ result/secs (/ usecs 1000)))))
(%getsockopt-timeout (socket->fdes sock) level option)))
(else (else
"socket-option: unknown option type ~s" option))) "socket-option: unknown option type ~s" option)))