mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 17:50:29 +02:00
Code Activity

(scm_init_gc): Do not use scm_system_async.

Browse source
This commit is contained in:
Marius Vollmer 2002-10-04 13:42:43 +00:00
parent 3538c2b2a6
commit 2592c4c765
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/gc.c
View file

@ -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);