summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-06-27 16:00:01 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-06-27 16:00:01 +0000
commit73ea78af4d2f7bec513a4569400265e89e8ca153 (patch)
tree84dfbc28720910fa19bddaa2543c213fe0e4ca6d /libguile
parentac373580683625b12337c52e116143adfa5be54a (diff)
downloadguile-73ea78af4d2f7bec513a4569400265e89e8ca153.tar.gz
* Switch to standard way of smob initialization.
Diffstat (limited to 'libguile')
-rw-r--r--libguile/ChangeLog5
-rw-r--r--libguile/async.c6
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);