From 78573619d0f574b39f656239da6cc7565e745ffd Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Wed, 6 Dec 2000 16:42:16 +0000 Subject: [PATCH] * No binding is created for %gc-thunk any more. --- libguile/ChangeLog | 4 ++++ libguile/gc.c | 3 +-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index a028b94de..c0060424e 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,7 @@ +2000-12-06 Dirk Herrmann + + * gc.c (scm_init_gc): Don't create a binding for %gc-thunk. + 2000-12-06 Dirk Herrmann * gsubr.c: No need to include vector.h. diff --git a/libguile/gc.c b/libguile/gc.c index 3f24dc3ee..30fd43f15 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -2580,8 +2580,7 @@ scm_init_gc () #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); -- 2.20.1