mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(scm_system_star): Use scm_from_int on SIGINT and SIGQUIT,

Browse source 
since that's what those values are.
This commit is contained in:
Kevin Ryde 2004-08-05 00:33:58 +00:00
parent 9bebea882a
commit f070ba1332
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/simpos.c
View file

@ -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);