* Added a pcb field "collect_key" that simply gets set to #f

when garbage collection occurs.

bin/ikarus-collect.c

@@ -381,6 +381,7 @@ ik_collect(int mem_req, ikpcb* pcb){
   gettimeofday(&rt0, 0);
   getrusage(RUSAGE_SELF, &t0);
 
+  pcb->collect_key = false_object;
   gc_t gc;
   bzero(&gc, sizeof(gc_t));
   gc.pcb = pcb;

bin/ikarus.h

@@ -120,6 +120,7 @@ typedef struct ikpcb{
   int   engine_counter;               /* offset = 36 */
   int   interrupted;                  /* offset = 40 */
   ikp   base_rtd;                     /* offset = 44 */
+  ikp   collect_key;                  /* offset = 48 */
   /* the rest are not used by any scheme code        */
   /* they only support the runtime system (gc, etc.) */
   unsigned int* segment_vector;