mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

* ports.c (scm_add_to_port_table): allocate in units of

Browse source 
struct scm_port_table *, not struct scm_port_table.
	* posix.c (scm_close_pipe): remove the port from the port table
	and mark as closed.
	Thanks to Rob Engle for both fixes.
This commit is contained in:
Gary Houston 1998-03-03 10:11:13 +00:00
parent 186d31e78c
commit 67fe060ed5
3 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/posix.c
View file

@ -988,6 +988,8 @@ scm_close_pipe (port)
&& SCM_OPENP (port), port, SCM_ARG1, s_close_pipe);
SCM_DEFER_INTS;
rv = pclose ((FILE *) SCM_STREAM (port));
scm_remove_from_port_table (port);
SCM_SETAND_CAR (port, ~SCM_OPN);
if (rv == -1)
scm_syserror (s_close_pipe);
SCM_ALLOW_INTS;