summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/gc.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/gc.c b/libguile/gc.c
index f400fdf39..eca4c2f4e 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -698,7 +698,7 @@ scm_gc_for_newcell (scm_freelist_t *master, SCM *freelist)
++scm_ints_disabled;
do
{
- if (SCM_NULLP (master->clusters))
+ while (SCM_NULLP (master->clusters))
{
if (master->grow_heap_p || scm_block_gc)
{