summaryrefslogtreecommitdiff
path: root/libguile/scmsigs.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-06-26 15:46:40 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-06-26 15:46:40 +0000
commitfdc2839563bd8c821221a4869f27255ae77f757b (patch)
tree63bc043598fe6d9c2cac3d3c7251898cc306f5cd /libguile/scmsigs.c
parent36284627919a6968174b5f17369349187a2b4b1b (diff)
downloadguile-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.c5
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;