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

* async.c (scm_take_signal): Doc fixes.

Browse source
This commit is contained in:
Jim Blandy 1996-10-10 00:52:21 +00:00
parent 91088deffc
commit e4d24f3af1
1 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/async.c
View file

@ -660,10 +660,18 @@ scm_take_signal (n)
SCM ignored;
if (!scm_ints_disabled)
{
SCM_NEWCELL (ignored); /* In case we interrupted SCM_NEWCELL,
* throw out the possibly already allocated
* free cell.
*/
/* For reasons of speed, the SCM_NEWCELL macro doesn't defer
interrupts. Instead, it first sets its argument to point to
the first cell in the list, and then advances the freelist
pointer to the next cell. Now, if this procedure is
interrupted, the only anomalous state possible is to have
both SCM_NEWCELL's argument and scm_freelist pointing to the
same cell. To deal with this case, we always throw away the
first cell in scm_freelist here.
At least, that's the theory. I'm not convinced that that's
the only anomalous path we need to worry about. */
SCM_NEWCELL (ignored);
}
scm_system_async_mark (system_signal_asyncs[SCM_SIG_ORD(n)]);
return SCM_BOOL_F;