From 83d58c82570e93dc15dc381e58bedbea6c9badfb Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 29 Jun 2000 23:46:59 +0000 Subject: [PATCH] * gc.c (scm_gc_for_newcell): Behave gracefully also if scm_igc doesn't yield any new cells. In theory this could happen if all cells allocated with NEWCELL are either in use or conservatively marked and all cluster spine cells are conservatively marked. (Thanks to Dirk.) --- libguile/gc.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) {