diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-07-12 00:10:02 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-07-12 00:10:02 +0000 |
commit | a8741caa54fa6fc14bc290c40cc97361db850953 (patch) | |
tree | 0cc6d2e9e5f5dc6c85497eb51de3b5339dec95b6 /libguile/socket.c | |
parent | a61ef59b0bb8c556d2ffb950b7f24674cd61034b (diff) | |
download | guile-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.c | 4 |
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)); |