diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-22 11:20:03 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-11-22 11:20:03 +0000 |
commit | 34f0f2b8af3585c4057cf076739151accde02147 (patch) | |
tree | 64492a270ab934f362e5725cef4581377eaefa29 /libguile/socket.c | |
parent | 395d8627b90c1b90b48f562436d189e037ff05a6 (diff) | |
download | guile-34f0f2b8af3585c4057cf076739151accde02147.tar.gz |
* Deprecated macros SCM_ROCHARS and SCM_ROUCHARS.
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); |