summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r--libguile/deprecated.c8
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)
{