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

/kick mainzelM

This commit is contained in:
mainzelm 2002-02-13 08:51:01 +00:00
parent 3662ea8d88
commit 4d28e2bb33
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 (socket-address->unix-address 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)