* Fixed: gc_async must be protected from gc.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index c006042..d1fbc14 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-06  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * gc.c (scm_init_gc):  gc_async must be protected from gc.  I
+       wonder why we never ran into problems up to now...
+
 2000-12-06  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
        * gc.c (scm_init_gc):  Don't create a binding for %gc-thunk.

diff --git a/libguile/gc.c b/libguile/gc.c
index 30fd43f..96011f1 100644 (file)
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -2582,6 +2582,7 @@ scm_init_gc ()
 #endif  /* SCM_DEBUG_DEPRECATED == 0 */
   after_gc_thunk = scm_make_subr_opt ("%gc-thunk", scm_tc7_subr_0, gc_async_thunk, 0);
   gc_async = scm_system_async (after_gc_thunk);
+  scm_permanent_object (gc_async);
 
   scm_c_hook_add (&scm_after_gc_c_hook, mark_gc_async, NULL, 0);