From d2f51eaf14e905be8dd4aa85f514368ec83e1af1 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Thu, 16 Mar 2000 18:22:50 +0000
Subject: [PATCH] * __scm.h (GC_FREE_SEGMENTS): Disable this until we have made
 freeing of segment work with the new GC scheme.  (Thanks to Michael Livshin.)

---
 libguile/__scm.h | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libguile/__scm.h b/libguile/__scm.h
index 4e6ee0c7f..43698e4c4 100644
--- a/libguile/__scm.h
+++ b/libguile/__scm.h
@@ -49,7 +49,7 @@
  */
 
 /* New scheme for garbage collection */
-/* #define GUILE_NEW_GC_SCHEME */
+#define GUILE_NEW_GC_SCHEME
 
 /* #define GUILE_DEBUG_FREELIST */
 
@@ -76,7 +76,9 @@
 
 /* GC should relinquish empty cons-pair arenas. 
  */
+#ifndef GUILE_NEW_GC_SCHEME
 #define GC_FREE_SEGMENTS
+#endif
 
 /* Provide a scheme-accessible count-down timer that
  * generates a pseudo-interrupt.