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

(scm_raise): Use raise() rather than kill(), as this is

Browse source 
more direct for a procedure called raise.
(kill): Remove mingw fake fallback.
This commit is contained in:
Kevin Ryde 2006-12-15 23:52:11 +00:00
parent 500ab304ce
commit e7767c90b7
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/scmsigs.c
View file

@ -59,7 +59,6 @@
/* This weird comma expression is because Sleep is void under Windows. */ /* This weird comma expression is because Sleep is void under Windows. */
#define sleep(sec) (Sleep ((sec) * 1000), 0) #define sleep(sec) (Sleep ((sec) * 1000), 0)
#define usleep(usec) (Sleep ((usec) / 1000), 0) #define usleep(usec) (Sleep ((usec) / 1000), 0)
#define kill(pid, sig) raise (sig)
#define pipe(fd) _pipe (fd, 256, O_BINARY) #define pipe(fd) _pipe (fd, 256, O_BINARY)
#endif #endif
@ -626,7 +625,7 @@ SCM_DEFINE (scm_raise, "raise", 1, 0, 0,
"@var{sig} is as described for the kill procedure.") "@var{sig} is as described for the kill procedure.")
#define FUNC_NAME s_scm_raise #define FUNC_NAME s_scm_raise
{ {
if (kill (getpid (), scm_to_int (sig)) != 0) if (raise (scm_to_int (sig)) != 0)
SCM_SYSERROR; SCM_SYSERROR;
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }