diff options
author | Marius Vollmer <mvo@zagadka.de> | 2002-10-04 13:42:43 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2002-10-04 13:42:43 +0000 |
commit | 2592c4c765c3d3b5820cf7f3518bf585e3e3ea58 (patch) | |
tree | 7a9c588e53d64533ed48dccebdc448248217a6df | |
parent | 3538c2b2a6d2199d1f061f4b326539eb68788ed2 (diff) | |
download | guile-2592c4c765c3d3b5820cf7f3518bf585e3e3ea58.tar.gz |
(scm_init_gc): Do not use scm_system_async.
-rw-r--r-- | libguile/gc.c | 8 |
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); |