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

* async.c, error.h (scm_ints_disabled): Removed.

Browse source 
* gc.c (scm_gc_for_newcell), init.c (scm_init_guile_1),
root.c (scm_internal_cwdr), gdbint.c (SCM_BEGIN_FOREIGN_BLOCK,
SCM_END_FOREIGN_BLOCK): Don't touch scm_ints_disabled.
(old_ints): Removed.

* __scm.h (SCM_DEFER_INTS, SCM_ALLOW_INTS): Define as a recursive
critical section.
(SCM_REDEFER_INTS, SCM_ALLOW_INTS): Define as SCM_DEFER_INTS and
SCM_ALLOW_INTS.
This commit is contained in:
Mikael Djurfeldt 2002-12-10 09:35:06 +00:00
parent 06babeccd1
commit c7fabadfe0
8 changed files with 24 additions and 79 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/async.c
View file

@ -62,11 +62,6 @@
#include <unistd.h>
#endif
/* This is not used for anything except checking that DEFER_INTS and
ALLOW_INTS are used properly.
*/
int scm_ints_disabled = 1;
/* {Asynchronous Events}
*