Regression: runaway allocation of heaps.

* gc.c (make_obj): Fix regression introduced on 2014-10-18,
released in TXR 100. Because make_obj discontinues
placing objects into the freshobj_array when the full_gc
flag has been set, it is incorrect to allocate another heap
when the free list is exhausted and the freshobj_array
has room remaining. It has room remaining because it is
disused.

1 files changed, 1 insertions, 1 deletions

diff --git a/gc.c b/gc.c
index 799bbf94..53357c0b 100644
--- a/gc.c
+++ b/gc.c
@@ -204,7 +204,7 @@ val make_obj(void)
     }
 
 #if CONFIG_GEN_GC
-    if (freshobj_idx < FRESHOBJ_VEC_SIZE) {
+    if (!full_gc && freshobj_idx < FRESHOBJ_VEC_SIZE) {
       more();
       continue;
     }