From a8cffa9f6908d83dbbe60349d25deb63f580ff91 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Thu, 16 Mar 2000 04:26:12 +0000
Subject: [PATCH] *** empty log message ***

---
 libguile/gc.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/gc.c b/libguile/gc.c
index 84bfd0e3e..95b72edcf 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -330,6 +330,7 @@ SCM_DEFINE (scm_map_free_list, "map-free-list", 0, 0, 0,
 }
 #undef FUNC_NAME
 
+#ifdef GUILE_NEW_GC_SCHEME
 static int
 free_list_length (char *title, int i, SCM freelist)
 {
@@ -370,13 +371,12 @@ SCM_DEFINE (scm_free_list_length, "free-list-length", 0, 0, 0,
             "`free-list-length' is only included in --enable-guile-debug builds of Guile.")
 #define FUNC_NAME s_scm_free_list_length
 {
-#ifdef GUILE_NEW_GC_SCHEME
   free_list_lengths ("1-words", &scm_master_freelist, scm_freelist);
   free_list_lengths ("2-words", &scm_master_freelist2, scm_freelist2);
-#endif
   return SCM_UNSPECIFIED;
 }
 #undef FUNC_NAME
+#endif
 
 #endif