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/scmsigs.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/scmsigs.c')
-rw-r--r-- | libguile/scmsigs.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c index c36c83d98..bdbf525e7 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -51,6 +51,7 @@ #include "libguile/async.h" #include "libguile/eval.h" +#include "libguile/root.h" #include "libguile/vectors.h" #include "libguile/validate.h" @@ -166,9 +167,7 @@ sys_deliver_signals (void) #ifndef HAVE_SIGACTION signal (i, take_signal); #endif - scm_apply (SCM_VELTS (*signal_handlers)[i], - SCM_LIST1 (SCM_MAKINUM (i)), - SCM_EOL); + scm_call_1 (SCM_VELTS (*signal_handlers)[i], SCM_MAKINUM (i)); } } return SCM_UNSPECIFIED; |