From a8741caa54fa6fc14bc290c40cc97361db850953 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 12 Jul 1998 00:10:02 +0000 Subject: * 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. --- libguile/socket.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/socket.c') 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)); -- cgit v1.2.3