*** empty log message ***

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 64b7db8..1341e16 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -2,7 +2,9 @@
 
        * gc.c, gc.h (scm_map_free_list): Define also if GUILE_DEBUG is
        defined.
-       
+       (scm_free_list_length): New procedure (GUILE_DEBUG).
+       Fixed a small but serious bug introduced by the previous change.
+
        * gc.c (scm_gc_sweep): Moved variable n_objects to inner sweep
        loop and declare as register.
 

diff --git a/libguile/init.c b/libguile/init.c
index 99d28e0..9fb8c63 100644 (file)
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -356,7 +356,7 @@ scm_load_startup_files ()
     }
 }
 
-#ifdef GUILE_DEBUG
+#ifdef GUILE_NEW_GC_SCHEME
 /* Get an integer from an environment variable.  */
 static int
 scm_i_getenv_int (const char *var, int def)
@@ -474,7 +474,7 @@ scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure)
       scm_ports_prehistory ();
       scm_smob_prehistory ();
       scm_tables_prehistory ();
-#if defined (GUILE_DEBUG) && defined (GUILE_NEW_GC_SCHEME)
+#if defined (GUILE_NEW_GC_SCHEME)
       scm_init_storage (scm_i_getenv_int ("GUILE_INIT_HEAP_SIZE", 0),
                        scm_i_getenv_int ("GUILE_GC_TRIGGER", 0),
                        scm_i_getenv_int ("GUILE_INIT_HEAP_SIZE2", 40000),