summaryrefslogtreecommitdiff
path: root/libguile/simpos.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/simpos.c')
-rw-r--r--libguile/simpos.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c
index a37423f56..ca083ab15 100644
--- a/libguile/simpos.c
+++ b/libguile/simpos.c
@@ -151,9 +151,9 @@ SCM_DEFINE (scm_system_star, "system*", 0, 0, 1,
execargv = allocate_string_pointers (args);
/* make sure the child can't kill us (as per normal system call) */
- sig_ign = scm_long2num ((long) SIG_IGN);
- sigint = scm_long2num (SIGINT);
- sigquit = scm_long2num (SIGQUIT);
+ sig_ign = scm_from_long ((unsigned long) SIG_IGN);
+ sigint = scm_from_long (SIGINT);
+ sigquit = scm_from_long (SIGQUIT);
oldint = scm_sigaction (sigint, sig_ign, SCM_UNDEFINED);
oldquit = scm_sigaction (sigquit, sig_ign, SCM_UNDEFINED);