Mechanism for recycling conses outside of GC.

* lib.c (recycled_conses): New static variable.
(rcyc_pop, rcyc_cons, rcyc_list, rcyc_empty): New functions.
(cons): Take a recycled cons, if available.

* lib.h (rcyc_pop, rcyc_cons, rcyc_list,
rcyc_empty): Declared.

* gc.c (gc): Call rcyc_empty to make recycle_list
unreachable.

1 files changed, 1 insertions, 0 deletions

diff --git a/gc.c b/gc.c
index 01a63e47..8b513654 100644
--- a/gc.c
+++ b/gc.c
@@ -681,6 +681,7 @@ void gc(void)
 
   save_context(mc);
   gc_enabled = 0;
+  rcyc_empty();
   mark(&mc, &gc_stack_top);
   hash_process_weak();
   prepare_finals();