mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

* scmsigs.c (sys_deliver_signals): bug fix: reset got_signal[i]

Browse source 
before applying the handler in case it doesn't return.
This commit is contained in:
Gary Houston 1997-06-01 08:08:49 +00:00
parent 115b09a504
commit 2ad6b1a531
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
Sun Jun 1 07:58:41 1997 Gary Houston <ghouston@actrix.gen.nz>
* scmsigs.c (sys_deliver_signals): bug fix: reset got_signal[i]
before applying the handler in case it doesn't return.
Sat May 31 18:57:51 1997 Gary Houston <ghouston@actrix.gen.nz> Sat May 31 18:57:51 1997 Gary Houston <ghouston@actrix.gen.nz>
* scmsigs.h, async.h: updated. * scmsigs.h, async.h: updated.

6
libguile/scmsigs.c
View file

@ -140,13 +140,13 @@ sys_deliver_signals (void)
{ {
if (got_signal[i]) if (got_signal[i])
{ {
scm_apply (SCM_VELTS (*signal_handlers)[i],
scm_listify (SCM_MAKINUM (i), SCM_UNDEFINED),
SCM_EOL);
got_signal[i] = 0; got_signal[i] = 0;
#ifndef HAVE_SIGACTION #ifndef HAVE_SIGACTION
signal (i, take_signal); signal (i, take_signal);
#endif #endif
scm_apply (SCM_VELTS (*signal_handlers)[i],
scm_listify (SCM_MAKINUM (i), SCM_UNDEFINED),
SCM_EOL);
} }
} }
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;