diff options
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r-- | libguile/deprecated.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index a8aebeeee..df7ba4dc6 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -1467,6 +1467,14 @@ scm_i_defer_ints_etc () "Use a mutex instead if appropriate."); } +int +scm_i_mask_ints (void) +{ + scm_c_issue_deprecation_warning ("`scm_mask_ints' is deprecated."); + return (SCM_I_CURRENT_THREAD->block_asyncs != 0); +} + + SCM scm_guard (SCM guardian, SCM obj, int throw_p) { |