diff options
Diffstat (limited to 'libguile/scmsigs.c')
-rw-r--r-- | libguile/scmsigs.c | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c index 3591f3a63..1b9aa0724 100644 --- a/libguile/scmsigs.c +++ b/libguile/scmsigs.c @@ -223,7 +223,7 @@ really_install_handler (void *data) { SCM_VECTOR_SET (*signal_handlers, signum, handler); SCM_VECTOR_SET (signal_cell_handlers, signum, - close_1 (handler, scm_int2num (signum))); + close_1 (handler, scm_from_int (signum))); } /* Now fix up the cell. It might contain the old handler but since @@ -424,7 +424,7 @@ SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0, orig_handlers[csig] = old_action; } if (old_action.sa_handler == SIG_DFL || old_action.sa_handler == SIG_IGN) - old_handler = scm_long2num ((long) old_action.sa_handler); + old_handler = scm_from_long ((long) old_action.sa_handler); SCM_ALLOW_INTS; return scm_cons (old_handler, scm_from_int (old_action.sa_flags)); #else @@ -443,7 +443,7 @@ SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0, orig_handlers[csig] = old_chandler; } if (old_chandler == SIG_DFL || old_chandler == SIG_IGN) - old_handler = scm_long2num ((long) old_chandler); + old_handler = scm_from_long ((long) old_chandler); SCM_ALLOW_INTS; return scm_cons (old_handler, scm_from_int (0)); #endif @@ -536,10 +536,10 @@ SCM_DEFINE (scm_setitimer, "setitimer", 5, 0, 0, if(rv != 0) SCM_SYSERROR; - return scm_list_2(scm_cons(scm_long2num(old_timer.it_interval.tv_sec), - scm_long2num(old_timer.it_interval.tv_usec)), - scm_cons(scm_long2num(old_timer.it_value.tv_sec), - scm_long2num(old_timer.it_value.tv_usec))); + return scm_list_2 (scm_cons (scm_from_long (old_timer.it_interval.tv_sec), + scm_from_long (old_timer.it_interval.tv_usec)), + scm_cons (scm_from_long (old_timer.it_value.tv_sec), + scm_from_long (old_timer.it_value.tv_usec))); } #undef FUNC_NAME #endif /* HAVE_SETITIMER */ @@ -572,10 +572,10 @@ SCM_DEFINE (scm_getitimer, "getitimer", 1, 0, 0, if(rv != 0) SCM_SYSERROR; - return scm_list_2(scm_cons(scm_long2num(old_timer.it_interval.tv_sec), - scm_long2num(old_timer.it_interval.tv_usec)), - scm_cons(scm_long2num(old_timer.it_value.tv_sec), - scm_long2num(old_timer.it_value.tv_usec))); + return scm_list_2 (scm_cons (scm_from_long (old_timer.it_interval.tv_sec), + scm_from_long (old_timer.it_interval.tv_usec)), + scm_cons (scm_from_long (old_timer.it_value.tv_sec), + scm_from_long (old_timer.it_value.tv_usec))); } #undef FUNC_NAME #endif /* HAVE_GETITIMER */ @@ -676,14 +676,14 @@ scm_init_scmsigs () #endif } - scm_c_define ("NSIG", scm_long2num (NSIG)); - scm_c_define ("SIG_IGN", scm_long2num ((long) SIG_IGN)); - scm_c_define ("SIG_DFL", scm_long2num ((long) SIG_DFL)); + scm_c_define ("NSIG", scm_from_long (NSIG)); + scm_c_define ("SIG_IGN", scm_from_long ((long) SIG_IGN)); + scm_c_define ("SIG_DFL", scm_from_long ((long) SIG_DFL)); #ifdef SA_NOCLDSTOP - scm_c_define ("SA_NOCLDSTOP", scm_long2num (SA_NOCLDSTOP)); + scm_c_define ("SA_NOCLDSTOP", scm_from_long (SA_NOCLDSTOP)); #endif #ifdef SA_RESTART - scm_c_define ("SA_RESTART", scm_long2num (SA_RESTART)); + scm_c_define ("SA_RESTART", scm_from_long (SA_RESTART)); #endif #if defined(HAVE_SETITIMER) || defined(HAVE_GETITIMER) |