diff options
-rw-r--r-- | libguile/gc.c | 2 |
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) { |