* 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.)

diff --git a/libguile/gc.c b/libguile/gc.c
index f400fdf..eca4c2f 100644 (file)
--- 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)
            {