Fixed bug in bind-socket.

2002-02-13 08:28:59 +00:00 · 2002-02-13 08:28:59 +00:00 · 3662ea8d88
parent 6a794e1eba
commit 3662ea8d88
1 changed files with 1 additions and 1 deletions
--- a/scsh/network.scm
+++ b/scsh/network.scm
@ -204,7 +204,7 @@
 		   "bind-socket: trying to bind incompatible address to socket ~s"
 		   name))
 		 ((and (= family address-family/unix)
-		       (> (string-length name) 107))
+		       (> (string-length (socket-address->unix-address name) 107)))
 		  (error "bind-socket: path too long" name))
 		 (else
 		  (%bind (socket->fdes sock)