diff options
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/ChangeLog | 5 | ||||
-rw-r--r-- | libguile/async.c | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 16631ddd9..6b19a9079 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2000-06-27 Dirk Herrmann <D.Herrmann@tu-bs.de> + + * async.c (scm_init_async): Switch to standard way of smob + initialization. + 2000-06-21 Michael Livshin <mlivshin@bigfoot.com> * guile-doc-snarf.in: use cut instead of sed, that's much much diff --git a/libguile/async.c b/libguile/async.c index 6b264fb17..39330a35f 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -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); |