guile/guile-core/libguile ChangeLog gc.c

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  00/12/06 09:11:46

Modified files:
        guile-core/libguile: ChangeLog gc.c 

Log message:
        * Fixed:  gc_async must be protected from gc.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1191&r2=1.1192
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/gc.c.diff?r1=1.167&r2=1.168

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1191 
guile/guile-core/libguile/ChangeLog:1.1192
--- guile/guile-core/libguile/ChangeLog:1.1191  Wed Dec  6 08:42:16 2000
+++ guile/guile-core/libguile/ChangeLog Wed Dec  6 09:11:46 2000
@@ -1,5 +1,10 @@
 2000-12-06  Dirk Herrmann  <address@hidden>
 
+       * 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  <address@hidden>
+
        * gc.c (scm_init_gc):  Don't create a binding for %gc-thunk.
 
 2000-12-06  Dirk Herrmann  <address@hidden>
Index: guile/guile-core/libguile/gc.c
diff -u guile/guile-core/libguile/gc.c:1.167 
guile/guile-core/libguile/gc.c:1.168
--- guile/guile-core/libguile/gc.c:1.167        Wed Dec  6 08:42:16 2000
+++ guile/guile-core/libguile/gc.c      Wed Dec  6 09:11:46 2000
@@ -2582,6 +2582,7 @@
 #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);