diff options
| author | Kevin Ryde <user42@zip.com.au> | 2004-08-05 00:33:58 +0000 |
|---|---|---|
| committer | Kevin Ryde <user42@zip.com.au> | 2004-08-05 00:33:58 +0000 |
| commit | f070ba1332b24ddac8399c5853312880e1af0054 (patch) | |
| tree | 0f590c009f11f178164192169b9a7d51d9e4e157 /libguile/simpos.c | |
| parent | 9bebea882a5dab90c1e71004634ede2cf2562e8c (diff) | |
| download | guile-f070ba1332b24ddac8399c5853312880e1af0054.tar.gz | |
(scm_system_star): Use scm_from_int on SIGINT and SIGQUIT,
since that's what those values are.
Diffstat (limited to 'libguile/simpos.c')
| -rw-r--r-- | libguile/simpos.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/simpos.c b/libguile/simpos.c index ca083ab15..a35de86dc 100644 --- a/libguile/simpos.c +++ b/libguile/simpos.c @@ -152,8 +152,8 @@ SCM_DEFINE (scm_system_star, "system*", 0, 0, 1, /* make sure the child can't kill us (as per normal system call) */ sig_ign = scm_from_long ((unsigned long) SIG_IGN); - sigint = scm_from_long (SIGINT); - sigquit = scm_from_long (SIGQUIT); + sigint = scm_from_int (SIGINT); + sigquit = scm_from_int (SIGQUIT); oldint = scm_sigaction (sigint, sig_ign, SCM_UNDEFINED); oldquit = scm_sigaction (sigquit, sig_ign, SCM_UNDEFINED); |