summaryrefslogtreecommitdiff
path: root/libguile/socket.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-07-12 00:10:02 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-07-12 00:10:02 +0000
commita8741caa54fa6fc14bc290c40cc97361db850953 (patch)
tree0cc6d2e9e5f5dc6c85497eb51de3b5339dec95b6 /libguile/socket.c
parenta61ef59b0bb8c556d2ffb950b7f24674cd61034b (diff)
downloadguile-a8741caa54fa6fc14bc290c40cc97361db850953.tar.gz
* eval.c, filesys.c, fluids.c, gc.c, gh_data.c, init.c, kw.c,
net_db.c, posix.c, print.c, regex-posix.c, scmsigs.c, socket.c, stime.c, symbols.c, unif.c, vectors.c, weaks.c: Removed third argument in call to scm_make_vector.
Diffstat (limited to 'libguile/socket.c')
-rw-r--r--libguile/socket.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/socket.c b/libguile/socket.c
index d1f59c122..7f8077556 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -462,7 +462,7 @@ scm_addr_vector (address, proc)
if (fam == AF_UNIX)
{
struct sockaddr_un *nad = (struct sockaddr_un *) address;
- result = scm_make_vector (SCM_MAKINUM (2), SCM_UNSPECIFIED, SCM_BOOL_F);
+ result = scm_make_vector (SCM_MAKINUM (2), SCM_UNSPECIFIED);
ve = SCM_VELTS (result);
ve[0] = scm_ulong2num ((unsigned long) fam);
ve[1] = scm_makfromstr (nad->sun_path,
@@ -473,7 +473,7 @@ scm_addr_vector (address, proc)
if (fam == AF_INET)
{
struct sockaddr_in *nad = (struct sockaddr_in *) address;
- result = scm_make_vector (SCM_MAKINUM (3), SCM_UNSPECIFIED, SCM_BOOL_F);
+ result = scm_make_vector (SCM_MAKINUM (3), SCM_UNSPECIFIED);
ve = SCM_VELTS (result);
ve[0] = scm_ulong2num ((unsigned long) fam);
ve[1] = scm_ulong2num (ntohl (nad->sin_addr.s_addr));