From 2b49d8e3cb12ecd52d1026f01ef6cb17164203e7 Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Fri, 1 Sep 2006 01:35:13 +0000 Subject: [PATCH] (scm_c_port_for_each): Add a scm_remember_upto_here_1(ports) at the end of the function to fix a GC bug. --- libguile/ports.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/libguile/ports.c b/libguile/ports.c index 9ac0c1cbe..8b285eb99 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -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,