summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-10-04 13:42:43 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-10-04 13:42:43 +0000
commit2592c4c765c3d3b5820cf7f3518bf585e3e3ea58 (patch)
tree7a9c588e53d64533ed48dccebdc448248217a6df
parent3538c2b2a6d2199d1f061f4b326539eb68788ed2 (diff)
downloadguile-2592c4c765c3d3b5820cf7f3518bf585e3e3ea58.tar.gz
(scm_init_gc): Do not use scm_system_async.
-rw-r--r--libguile/gc.c8
1 files changed, 2 insertions, 6 deletions
diff --git a/libguile/gc.c b/libguile/gc.c
index 0650b4180..9c5de1d92 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -981,17 +981,13 @@ mark_gc_async (void * hook_data SCM_UNUSED,
void
scm_init_gc ()
{
- SCM after_gc_thunk;
-
-
scm_gc_init_mark ();
scm_after_gc_hook = scm_permanent_object (scm_make_hook (SCM_INUM0));
scm_c_define ("after-gc-hook", scm_after_gc_hook);
- after_gc_thunk = scm_c_make_subr ("%gc-thunk", scm_tc7_subr_0,
- gc_async_thunk);
- gc_async = scm_system_async (after_gc_thunk); /* protected via scm_asyncs */
+ gc_async = scm_c_make_subr ("%gc-thunk", scm_tc7_subr_0,
+ gc_async_thunk);
scm_c_hook_add (&scm_after_gc_c_hook, mark_gc_async, NULL, 0);