mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Greg's smob patch

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-07-07 09:44:01 +00:00
parent 8ac40ce887
commit 23a621512f
25 changed files with 183 additions and 408 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/async.c
View file

@ -282,13 +282,11 @@ SCM
scm_async (thunk)
SCM thunk;
{
SCM it;
struct scm_async * async
= (struct scm_async *) scm_must_malloc (sizeof (*async), s_async);
async->got_it = 0;
async->thunk = thunk;
SCM_NEWSMOB (it, scm_tc16_async, async);
return it;
SCM_RETURN_NEWSMOB (scm_tc16_async, async);
}
SCM_PROC(s_system_async, "system-async", 1, 0, 0, scm_system_async);
@ -301,12 +299,8 @@ scm_system_async (thunk)
SCM list;
it = scm_async (thunk);
SCM_NEWCELL (list);
SCM_DEFER_INTS;
SCM_SETCAR (list, it);
SCM_SETCDR (list, scm_asyncs);
SCM_NEWSMOB (list, it, scm_asyncs);
scm_asyncs = list;
SCM_ALLOW_INTS;
return it;
}
@ -473,8 +467,8 @@ void
scm_init_async ()
{
SCM a_thunk;
scm_tc16_async = scm_make_smob_type ("async", sizeof (struct scm_async));
scm_set_smob_mark (scm_tc16_async, mark_async);
scm_tc16_async = scm_make_smob_type_mfpe ("async", sizeof (struct scm_async),
mark_async, NULL, NULL, NULL);
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);