mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-10 15:50:50 +02:00
Code Activity

(scm_c_port_for_each): Add a scm_remember_upto_here_1(ports) at the

Browse source 
end of the function to fix a GC bug.
This commit is contained in:
Rob Browning 2006-09-01 01:35:13 +00:00
parent 0e1b2e1ed2
commit 2b49d8e3cb
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ports.c
View file

@ -817,6 +817,8 @@ scm_c_port_for_each (void (*proc)(void *data, SCM p), void *data)
for (i = 0; i < n; i++)
proc (data, SCM_SIMPLE_VECTOR_REF (ports, i));
scm_remember_upto_here_1(ports);
}
SCM_DEFINE (scm_port_for_each, "port-for-each", 1, 0, 0,