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

Pass SYSCALL argument to ERRNO-ERROR.

This commit is contained in:
sperber 2002-01-10 12:29:36 +00:00
parent 30187cf93f
commit fbb912c9eb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/network.scm
View File

@ -248,7 +248,7 @@
(define (handle-EINPROGRESS sock) (define (handle-EINPROGRESS sock)
(let ((val (socket-option sock level/socket socket/error))) (let ((val (socket-option sock level/socket socket/error)))
(if (not (zero? val)) (if (not (zero? val))
(errno-error val "scheme_connect")))) (errno-error val "scheme_connect" %connect))))
(import-os-error-syscall %connect (sockfd family name) "scheme_connect") (import-os-error-syscall %connect (sockfd family name) "scheme_connect")