mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* Switch to standard way of smob initialization.

Browse source
This commit is contained in:
Dirk Herrmann 2000-06-27 16:00:01 +00:00
parent ac37358068
commit 73ea78af4d
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/async.c
View file

@ -502,8 +502,10 @@ void
scm_init_async ()
{
SCM a_thunk;
tc16_async = scm_make_smob_type_mfpe ("async", 0,
mark_async, NULL, NULL, NULL);
tc16_async = scm_make_smob_type ("async", 0);
scm_set_smob_mark (tc16_async, mark_async);
scm_gc_vcell = scm_sysintern ("gc-thunk", SCM_BOOL_F);
a_thunk = scm_make_gsubr ("%gc-thunk", 0, 0, 0, scm_sys_gc_async_thunk);
scm_gc_async = scm_system_async (a_thunk);