mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-10 07:50:24 +02:00
(scm_c_port_for_each): Add a scm_remember_upto_here_1(ports) at the
end of the function to fix a GC bug.
This commit is contained in:
parent
0e1b2e1ed2
commit
2b49d8e3cb
1 changed files with 2 additions and 0 deletions
|
@ -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,
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue