summaryrefslogtreecommitdiff
path: root/libguile/scmsigs.c
diff options
context:
space:
mode:
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 58a673151..837cd4ed7 100644
--- a/libguile/scmsigs.c
+++ b/libguile/scmsigs.c
@@ -236,7 +236,7 @@ SCM_DEFINE (scm_sigaction, "sigaction", 1, 2, 0,
old_handler = scheme_handlers[csig];
if (SCM_UNBNDP (handler))
query_only = 1;
- else if (SCM_TRUE_P (scm_integer_p (handler)))
+ else if (SCM_EQ_P (scm_integer_p (handler), SCM_BOOL_T))
{
if (SCM_NUM2LONG (2,handler) == (long) SIG_DFL
|| SCM_NUM2LONG (2,handler) == (long) SIG_IGN)