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

* eval.c (scm_call_0, scm_call_1, scm_call_2, scm_call_3,

Browse source 
scm_apply_0, scm_apply_1, scm_apply_2, scm_apply_3): New functions.
This commit is contained in:
Keisuke Nishida 2001-06-26 15:46:40 +00:00
parent 3628462791
commit fdc2839563
25 changed files with 167 additions and 105 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/async.c
View file

@ -363,7 +363,7 @@ SCM_DEFINE (scm_run_asyncs, "run-asyncs", 1, 0, 0,
if (ASYNC_GOT_IT (a))
{
SET_ASYNC_GOT_IT (a, 0);
scm_apply (ASYNC_THUNK (a), SCM_EOL, SCM_EOL);
scm_call_0 (ASYNC_THUNK (a));
}
scm_mask_ints = 0;
list_of_a = SCM_CDR (list_of_a);