mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* socket.c (scm_addr_vector): fix faulty scm_listify.

Browse source
This commit is contained in:
Gary Houston 1996-12-28 19:17:39 +00:00
parent 11cc7dafee
commit 4ecd21bc8c
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
Sat Dec 28 19:14:01 1996 Gary Houston <ghouston@actrix.gen.nz>
* socket.c (scm_addr_vector): fix faulty scm_listify.
Fri Dec 27 13:44:23 1996 Marius Vollmer <mvo@zagadka.ping.de> Fri Dec 27 13:44:23 1996 Marius Vollmer <mvo@zagadka.ping.de>
* PLUGIN/guile.libs.in: New file. * PLUGIN/guile.libs.in: New file.
@ -54,7 +58,7 @@ Sat Dec 21 00:33:03 1996 Gary Houston <ghouston@actrix.gen.nz>
(scm_fill_sockaddr): throw an error if fam is not recognised. (scm_fill_sockaddr): throw an error if fam is not recognised.
(scm_bind): use scm_fill_sockaddr. (scm_bind): use scm_fill_sockaddr.
(scm_listen): take a port, not a fd object. (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 address can't be got
(scm_sock_fd_to_port): new procedure. (scm_sock_fd_to_port): new procedure.
(scm_socket): use scm_sock_fd_to_port. (scm_socket): use scm_sock_fd_to_port.

2
libguile/socket.c
View file

@ -466,7 +466,7 @@ scm_addr_vector (address, proc)
} }
else else
scm_misc_error (proc, "Unrecognised socket address type: %s", scm_misc_error (proc, "Unrecognised socket address type: %s",
scm_listify (SCM_MAKINUM (fam))); scm_listify (SCM_MAKINUM (fam), SCM_UNSPECIFIED));
return result; return result;
} }