diff options
Diffstat (limited to 'libguile/socket.c')
-rw-r--r-- | libguile/socket.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/socket.c b/libguile/socket.c index 3365f3ee4..23f44851d 100644 --- a/libguile/socket.c +++ b/libguile/socket.c @@ -431,7 +431,7 @@ scm_fill_sockaddr (int fam,SCM address,SCM *args,int which_arg,const char *proc, memset (soka, 0, sizeof (struct sockaddr_un)); soka->sun_family = AF_UNIX; SCM_ASSERT (SCM_STRINGP (address), address, which_arg, proc); - memcpy (soka->sun_path, SCM_ROCHARS (address), + memcpy (soka->sun_path, SCM_STRING_CHARS (address), 1 + SCM_STRING_LENGTH (address)); *size = sizeof (struct sockaddr_un); return (struct sockaddr *) soka; @@ -738,7 +738,7 @@ SCM_DEFINE (scm_send, "send", 2, 1, 0, SCM_VALIDATE_INUM_DEF_COPY (3,flags,0,flg); fd = SCM_FPORT_FDES (sock); - SCM_SYSCALL (rv = send (fd, SCM_ROCHARS (message), SCM_STRING_LENGTH (message), flg)); + SCM_SYSCALL (rv = send (fd, SCM_STRING_CHARS (message), SCM_STRING_LENGTH (message), flg)); if (rv == -1) SCM_SYSERROR; return SCM_MAKINUM (rv); @@ -856,7 +856,7 @@ SCM_DEFINE (scm_sendto, "sendto", 4, 0, 1, SCM_VALIDATE_CONS (5,args_and_flags); flg = SCM_NUM2ULONG (5,SCM_CAR (args_and_flags)); } - SCM_SYSCALL (rv = sendto (fd, SCM_ROCHARS (message), SCM_STRING_LENGTH (message), + SCM_SYSCALL (rv = sendto (fd, SCM_STRING_CHARS (message), SCM_STRING_LENGTH (message), flg, soka, size)); save_err = errno; scm_must_free ((char *) soka); |