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

Fixed bug in bind-socket.

This commit is contained in:
mainzelm 2002-02-13 08:28:59 +00:00
parent 6a794e1eba
commit 3662ea8d88
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

@ -204,7 +204,7 @@
"bind-socket: trying to bind incompatible address to socket ~s" "bind-socket: trying to bind incompatible address to socket ~s"
name)) name))
((and (= family address-family/unix) ((and (= family address-family/unix)
(> (string-length name) 107)) (> (string-length (socket-address->unix-address 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)