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

Merge from stable-2.2

Browse source
This commit is contained in:
Andy Wingo 2019-08-02 14:57:42 +02:00
commit 24a48d8900
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/scmsigs.c
View file

@ -137,12 +137,14 @@ static int signal_pipe[2];
static SIGRETTYPE static SIGRETTYPE
take_signal (int signum) take_signal (int signum)
{ {
int old_errno = errno;
char sigbyte = signum; char sigbyte = signum;
full_write (signal_pipe[1], &sigbyte, 1); full_write (signal_pipe[1], &sigbyte, 1);
#ifndef HAVE_SIGACTION #ifndef HAVE_SIGACTION
signal (signum, take_signal); signal (signum, take_signal);
#endif #endif
errno = old_errno;
} }
struct signal_pipe_data struct signal_pipe_data