diff options
Diffstat (limited to 'libguile/scmsigs.c')
-rw-r--r-- | libguile/scmsigs.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c index ebe6f6263..f47a0f2c1 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -114,7 +114,7 @@ static SCM *signal_handlers; #ifdef HAVE_SIGACTION static struct sigaction orig_handlers[NSIG]; #else -static SIGRETTYPE (*orig_handlers)(int)[NSIG]; +static SIGRETTYPE (*orig_handlers[NSIG])(int); #endif static SIGRETTYPE @@ -325,7 +325,7 @@ SCM_DEFINE (scm_sigaction, "sigaction", 1, 2, 0, orig_handlers[csig] = old_chandler; } if (old_chandler == SIG_DFL || old_chandler == SIG_IGN) - old_handler = scm_long2num (old_chandler); + old_handler = scm_long2num ((long) old_chandler); SCM_ALLOW_INTS; return scm_cons (old_handler, SCM_MAKINUM (0)); #endif |