dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Replace a bunch of calls to SCM_LENGTH.

Browse source
This commit is contained in:
Dirk Herrmann 2000-10-09 14:37:36 +00:00
commit bfa974f0a4
15 changed files with 83 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/socket.c
View file

@ -709,7 +709,7 @@ SCM_DEFINE (scm_recv, "recv!", 2, 1, 0,
SCM_VALIDATE_INUM_DEF_COPY (3,flags,0,flg);
fd = SCM_FPORT_FDES (sock);
SCM_SYSCALL (rv = recv (fd, SCM_STRING_CHARS (buf), SCM_LENGTH (buf), flg));
SCM_SYSCALL (rv = recv (fd, SCM_STRING_CHARS (buf), SCM_STRING_LENGTH (buf), flg));
if (rv == -1)
SCM_SYSERROR;
@ -777,7 +777,7 @@ SCM_DEFINE (scm_recvfrom, "recvfrom!", 2, 3, 0,
SCM_VALIDATE_OPFPORT (1,sock);
SCM_VALIDATE_STRING (2,buf);
cend = SCM_LENGTH (buf);
cend = SCM_STRING_LENGTH (buf);
if (SCM_UNBNDP (flags))
flg = 0;