bind-socket on unix sockets

[David Reiss <dreiss@cs.brown.edu>]

A minor bug in 0.6.0:

bind-socket attempts to call string-length on a socket-address structure
directly, rather than calling socket-address->unix-address first.
The following patch (also attached) fixes this:


--- scsh/network.scm.old        Wed Feb 13 02:53:03 2002
+++ scsh/network.scm    Wed Feb 13 02:41:28 2002
@@ -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)

scsh-bind-socket.diff
Description: Text document