build error on solaris

[Martin Grabmueller]

Hello list,

under Solaris building barfs with the following error:

[...snip...]
gcc -g -O2 -Wall -Wmissing-prototypes -o .libs/guile .libs/guileS.o guile.o 
.libs/libguile.so -ldl -lcrypt -lsocket -lnsl -lm -lcrypt -lsocket -lnsl -lm 
-R/usr/local/lib
Undefined                       first referenced
 symbol                             in file
SUN_LEN                             .libs/libguile.so
ld: fatal: Symbol referencing errors. No output written to .libs/guile
collect2: ld returned 1 exit status
make[1]: *** [guile] Error 1
make[1]: Leaving directory `/home/m/mgrabmue/cvs/guile/guile-core/libguile'
make: *** [all-recursive] Error 1

SUN_LEN is used in socket.c:448, but I do not know what it is supposed
to do.  Maybe get the actual length of the path?

Maybe we can change the line

        *size = SUN_LEN (soka);

to

        *size = addr_size;

because the comment above the function says that `size' should return
the allocated size of the structure, and that seems to be `addr_size'.

Regards,
  'martin