From 4ecd21bc8c7ffd611d551b62770ebd44c356bd6e Mon Sep 17 00:00:00 2001 From: Gary Houston Date: Sat, 28 Dec 1996 19:17:39 +0000 Subject: [PATCH] * socket.c (scm_addr_vector): fix faulty scm_listify. --- libguile/ChangeLog | 6 +++++- libguile/socket.c | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index a63eabc57..041a3d1b0 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,7 @@ +Sat Dec 28 19:14:01 1996 Gary Houston + + * socket.c (scm_addr_vector): fix faulty scm_listify. + Fri Dec 27 13:44:23 1996 Marius Vollmer * PLUGIN/guile.libs.in: New file. @@ -54,7 +58,7 @@ Sat Dec 21 00:33:03 1996 Gary Houston (scm_fill_sockaddr): throw an error if fam is not recognised. (scm_bind): use scm_fill_sockaddr. (scm_listen): take a port, not a fd object. - (scm_accept): take and return a port. return CDR in the car if + (scm_accept): take and return a port. return #f in the car if address can't be got (scm_sock_fd_to_port): new procedure. (scm_socket): use scm_sock_fd_to_port. diff --git a/libguile/socket.c b/libguile/socket.c index fe8a67aaa..4c17b02eb 100644 --- a/libguile/socket.c +++ b/libguile/socket.c @@ -466,7 +466,7 @@ scm_addr_vector (address, proc) } else scm_misc_error (proc, "Unrecognised socket address type: %s", - scm_listify (SCM_MAKINUM (fam))); + scm_listify (SCM_MAKINUM (fam), SCM_UNSPECIFIED)); return result; }