From fca7547b1a696be063ed9d99ca8c514362df347b Mon Sep 17 00:00:00 2001
From: "Greg J. Badros" <gjb@cs.washington.edu>
Date: Tue, 28 Sep 1999 00:54:26 +0000
Subject: [PATCH] Fix my last commit -- DEBUG_FREELIST renamed to
 GUILE_DEBUG_FREELIST

---
 ChangeLog        | 2 +-
 acconfig.h       | 2 +-
 configure.in     | 2 +-
 libguile/gc.c    | 6 +++---
 libguile/gc.h    | 2 +-
 libguile/pairs.h | 2 +-
 6 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 9cfbe823b..ba672c806 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,7 +2,7 @@ Mon Sep 27 16:28:33 1999  Greg J. Badros  <gjb@cs.washington.edu>
 
 	* configure.in:  Added --enable-debug-freelist option.
 
-	* acconfig.h: Added DEBUG_FREELIST.
+	* acconfig.h: Added GUILE_DEBUG_FREELIST.
 
 1999-09-23  Gary Houston  <ghouston@freewire.co.uk>
 
diff --git a/acconfig.h b/acconfig.h
index 28066bfcb..b0ee3d465 100644
--- a/acconfig.h
+++ b/acconfig.h
@@ -53,7 +53,7 @@
 #undef READER_EXTENSIONS
 
 /* Define this if you want to debug the free list (helps w/ GC bugs) */
-#undef DEBUG_FREELIST
+#undef GUILE_DEBUG_FREELIST
 
 /* Define this if your system defines S_ISLNK in sys/stat.h */
 #undef HAVE_S_ISLNK
diff --git a/configure.in b/configure.in
index 614e57de0..3877baa93 100644
--- a/configure.in
+++ b/configure.in
@@ -53,7 +53,7 @@ AC_ARG_ENABLE(guile-debug,
 AC_ARG_ENABLE(debug-freelist,
   [  --enable-debug-freelist    Include garbage collector freelist debugging code],
   if test "$enable_debug_freelist" = y || test "$enable_debug_freelist" = yes; then
-    AC_DEFINE(DEBUG_FREELIST)
+    AC_DEFINE(GUILE_DEBUG_FREELIST)
   fi)
 
 AC_ARG_ENABLE(posix,
diff --git a/libguile/gc.c b/libguile/gc.c
index 98a5edc66..50d5cfc65 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -220,7 +220,7 @@ static void alloc_some_heap SCM_P ((int, SCM *));
 
 /* Debugging functions.  */
 
-#ifdef DEBUG_FREELIST
+#ifdef GUILE_DEBUG_FREELIST
 
 /* Return the number of the heap segment containing CELL.  */
 static int
@@ -327,7 +327,7 @@ scm_debug_newcell (void)
   return new;
 }
 
-#endif /* DEBUG_FREELIST */
+#endif /* GUILE_DEBUG_FREELIST */
 
 
 
@@ -1348,7 +1348,7 @@ scm_gc_sweep ()
            the list of free cells we've built for this segment.  */
 	*hp_freelist = nfreelist;
 
-#ifdef DEBUG_FREELIST
+#ifdef GUILE_DEBUG_FREELIST
       scm_check_freelist ();
       scm_map_free_list ();
 #endif
diff --git a/libguile/gc.h b/libguile/gc.h
index c3416cbb6..8d0c825c0 100644
--- a/libguile/gc.h
+++ b/libguile/gc.h
@@ -75,7 +75,7 @@ extern unsigned long scm_cells_allocated;
 extern long scm_mallocated;
 extern unsigned long scm_mtrigger;
 
-#ifdef DEBUG_FREELIST
+#ifdef GUILE_DEBUG_FREELIST
 extern SCM scm_map_free_list (void);
 extern SCM scm_debug_newcell (void);
 extern SCM scm_gc_set_debug_check_freelist_x (SCM flag);
diff --git a/libguile/pairs.h b/libguile/pairs.h
index 9e4b9ed26..638e62d10 100644
--- a/libguile/pairs.h
+++ b/libguile/pairs.h
@@ -144,7 +144,7 @@ typedef SCM  huge *SCMPTR;
 #define SCM_CDDDDR(OBJ)		SCM_CDR (SCM_CDR (SCM_CDR (SCM_CDR (OBJ))))
 
 
-#ifdef DEBUG_FREELIST
+#ifdef GUILE_DEBUG_FREELIST
 #define SCM_NEWCELL(_into) do { _into = scm_debug_newcell (); } while (0)
 #else
 #define SCM_NEWCELL(_into) \