diff options
Diffstat (limited to 'libguile/scmsigs.c')
-rw-r--r-- | libguile/scmsigs.c | 2 |
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) |