diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-06-26 15:46:40 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-06-26 15:46:40 +0000 |
commit | fdc2839563bd8c821221a4869f27255ae77f757b (patch) | |
tree | 63bc043598fe6d9c2cac3d3c7251898cc306f5cd /libguile/throw.c | |
parent | 36284627919a6968174b5f17369349187a2b4b1b (diff) | |
download | guile-fdc2839563bd8c821221a4869f27255ae77f757b.tar.gz |
* eval.c (scm_call_0, scm_call_1, scm_call_2, scm_call_3,
scm_apply_0, scm_apply_1, scm_apply_2, scm_apply_3): New functions.
Diffstat (limited to 'libguile/throw.c')
-rw-r--r-- | libguile/throw.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/throw.c b/libguile/throw.c index 9d4f0aeca..62468437b 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -348,7 +348,7 @@ scm_body_thunk (void *body_data) { struct scm_body_thunk_data *c = (struct scm_body_thunk_data *) body_data; - return scm_apply (c->body_proc, SCM_EOL, SCM_EOL); + return scm_call_0 (c->body_proc); } @@ -367,7 +367,7 @@ scm_handle_by_proc (void *handler_data, SCM tag, SCM throw_args) { SCM *handler_proc_p = (SCM *) handler_data; - return scm_apply (*handler_proc_p, scm_cons (tag, throw_args), SCM_EOL); + return scm_apply_1 (*handler_proc_p, tag, throw_args); } /* SCM_HANDLE_BY_PROC_CATCHING_ALL is like SCM_HANDLE_BY_PROC but @@ -383,7 +383,7 @@ static SCM hbpca_body (void *body_data) { struct hbpca_data *data = (struct hbpca_data *)body_data; - return scm_apply (data->proc, data->args, SCM_EOL); + return scm_apply_0 (data->proc, data->args); } SCM |