guile/guile-core/libguile ChangeLog gc.c

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  00/12/06 08:42:16

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

Log message:
        * No binding is created for %gc-thunk any more.

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

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1190 
guile/guile-core/libguile/ChangeLog:1.1191
--- guile/guile-core/libguile/ChangeLog:1.1190  Wed Dec  6 08:24:00 2000
+++ guile/guile-core/libguile/ChangeLog Wed Dec  6 08:42:16 2000
@@ -1,5 +1,9 @@
 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>
+
        * gsubr.c:  No need to include vector.h.
 
        (scm_gsubr_apply):  Use SCM_GSUBR_MAX instead of hard-coded value.
Index: guile/guile-core/libguile/gc.c
diff -u guile/guile-core/libguile/gc.c:1.166 
guile/guile-core/libguile/gc.c:1.167
--- guile/guile-core/libguile/gc.c:1.166        Mon Dec  4 09:19:35 2000
+++ guile/guile-core/libguile/gc.c      Wed Dec  6 08:42:16 2000
@@ -2580,8 +2580,7 @@
 #if (SCM_DEBUG_DEPRECATED == 0)
   scm_gc_vcell = scm_sysintern ("gc-thunk", SCM_BOOL_F);
 #endif  /* SCM_DEBUG_DEPRECATED == 0 */
-  /* Dirk:FIXME:: We don't really want a binding here. */
-  after_gc_thunk = scm_make_gsubr ("%gc-thunk", 0, 0, 0, gc_async_thunk);
+  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_c_hook_add (&scm_after_gc_c_hook, mark_gc_async, NULL, 0);