summaryrefslogtreecommitdiff
path: root/libguile/scmsigs.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-05-10 22:09:04 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-05-10 22:09:04 +0000
commit43067cec3bfefba421f32d9dff1bd387cc428bf2 (patch)
tree7c0e35a16989096248b928d37b80cb6a5b02f9a9 /libguile/scmsigs.c
parent3d5ebfa95cb8c730fcbe2410d91ac4435ae8b1ef (diff)
downloadguile-43067cec3bfefba421f32d9dff1bd387cc428bf2.tar.gz
(scm_sigaction_for_thread): Validate that the handler is indeed a
procedure when it isn't a number.
Diffstat (limited to 'libguile/scmsigs.c')
-rw-r--r--libguile/scmsigs.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c
index defd07e0b..0e554428e 100644
--- a/libguile/scmsigs.c
+++ b/libguile/scmsigs.c
@@ -371,7 +371,7 @@ SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0,
}
else
{
- SCM_VALIDATE_NIM (2, handler);
+ SCM_VALIDATE_PROC (2, handler);
#ifdef HAVE_SIGACTION
action.sa_handler = take_signal;
if (orig_handlers[csig].sa_handler == SIG_ERR)