Fixed bug caused by forgotten parentheses.
This commit is contained in:
parent
9ff4f45d42
commit
4f91395748
|
@ -207,9 +207,9 @@
|
||||||
(> (string-length name) 107))
|
(> (string-length name) 107))
|
||||||
(error "bind-socket: path too long" name))
|
(error "bind-socket: path too long" name))
|
||||||
(else
|
(else
|
||||||
%bind (socket->fdes sock)
|
(%bind (socket->fdes sock)
|
||||||
family
|
family
|
||||||
(socket-address:address name)))))))
|
(socket-address:address name))))))))
|
||||||
|
|
||||||
(import-os-error-syscall %bind (sockfd family name) "scheme_bind")
|
(import-os-error-syscall %bind (sockfd family name) "scheme_bind")
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue