From 150c200bdd8f1ce965b0588266df3955eff2f4d4 Mon Sep 17 00:00:00 2001
From: Michael Livshin <mlivshin@bigfoot.com>
Date: Wed, 28 Jun 2000 13:17:11 +0000
Subject: [PATCH] * gc.c (scm_gc_for_newcell): don't try to do GC if it's
 blocked, allocate instead.

---
 libguile/ChangeLog | 5 +++++
 libguile/gc.c      | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index e5940c1b3..dd390003d 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2000-06-28  Michael Livshin  <mlivshin@bigfoot.com>
+
+	* gc.c (scm_gc_for_newcell): don't try to do GC if it's blocked,
+	allocate instead.
+
 2000-06-28  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
 	* async.c (scm_gc_async, scm_gc_vcell, scm_sys_gc_async_thunk):
diff --git a/libguile/gc.c b/libguile/gc.c
index 0fe25d58b..c9ccca65c 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -705,7 +705,7 @@ scm_gc_for_newcell (scm_freelist_t *master, SCM *freelist)
     {
       if (SCM_NULLP (master->clusters))
 	{
-	  if (master->grow_heap_p)
+	  if (master->grow_heap_p || scm_block_gc)
 	    {
 	      master->grow_heap_p = 0;
 	      alloc_some_heap (master);