1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00

* gc.c (scm_gc_for_newcell): don't try to do GC if it's blocked,

allocate instead.
This commit is contained in:
Michael Livshin 2000-06-28 13:17:11 +00:00
parent 939794ce7f
commit 150c200bdd
2 changed files with 6 additions and 1 deletions

View file

@ -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):

View file

@ -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);