summaryrefslogtreecommitdiff
path: root/libguile/posix.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/posix.c')
-rw-r--r--libguile/posix.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/posix.c b/libguile/posix.c
index 5d0b1ed8f..495bfbbb8 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1483,9 +1483,11 @@ SCM_DEFINE (scm_system_star, "system*", 0, 0, 1,
scm_dynwind_begin (0);
/* Make sure the child can't kill us (as per normal system call). */
- scm_dynwind_sigaction (SIGINT, scm_from_ulong (SIG_IGN), SCM_UNDEFINED);
+ scm_dynwind_sigaction (SIGINT, scm_from_long ((long) SIG_IGN),
+ SCM_UNDEFINED);
#ifdef SIGQUIT
- scm_dynwind_sigaction (SIGQUIT, scm_from_ulong (SIG_IGN), SCM_UNDEFINED);
+ scm_dynwind_sigaction (SIGQUIT, scm_from_long ((long) SIG_IGN),
+ SCM_UNDEFINED);
#endif
res = scm_open_process (scm_nullstr, prog, args);