mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

* arbiters.c (scm_make_arbiter): Bugfix: Must SCM_DEFER_INTS

Browse source 
before constructing arbiter.
This commit is contained in:
Mikael Djurfeldt 1997-03-09 15:29:21 +00:00
parent 70ad422696
commit c6ed3e26f4
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/arbiters.c
View file

@ -84,8 +84,10 @@ scm_make_arbiter (name)
{ {
register SCM z; register SCM z;
SCM_NEWCELL (z); SCM_NEWCELL (z);
SCM_DEFER_INTS;
SCM_SETCDR (z, name); SCM_SETCDR (z, name);
SCM_SETCAR (z, scm_tc16_arbiter); SCM_SETCAR (z, scm_tc16_arbiter);
SCM_ALLOW_INTS;
return z; return z;
} }