summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/async.c12
-rw-r--r--libguile/async.h4
2 files changed, 8 insertions, 8 deletions
diff --git a/libguile/async.c b/libguile/async.c
index 276292ac1..b4b8eb4e6 100644
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -365,20 +365,20 @@ scm_c_call_with_unblocked_asyncs (void *(*proc) (void *data), void *data)
}
void
-scm_with_blocked_asyncs ()
+scm_frame_block_asyncs ()
{
- scm_on_rewind (increase_block, NULL, SCM_F_WIND_EXPLICITLY);
- scm_on_unwind (decrease_block, NULL, SCM_F_WIND_EXPLICITLY);
+ scm_frame_rewind (increase_block, NULL, SCM_F_WIND_EXPLICITLY);
+ scm_frame_unwind (decrease_block, NULL, SCM_F_WIND_EXPLICITLY);
}
void
-scm_with_unblocked_asyncs ()
+scm_frame_unblock_asyncs ()
{
if (scm_root->block_asyncs == 0)
scm_misc_error ("scm_with_unblocked_asyncs",
"asyncs already unblocked", SCM_EOL);
- scm_on_rewind (decrease_block, NULL, SCM_F_WIND_EXPLICITLY);
- scm_on_unwind (increase_block, NULL, SCM_F_WIND_EXPLICITLY);
+ scm_frame_rewind (decrease_block, NULL, SCM_F_WIND_EXPLICITLY);
+ scm_frame_unwind (increase_block, NULL, SCM_F_WIND_EXPLICITLY);
}
diff --git a/libguile/async.h b/libguile/async.h
index 3174c7a48..8bb1ef3e6 100644
--- a/libguile/async.h
+++ b/libguile/async.h
@@ -44,8 +44,8 @@ SCM_API SCM scm_call_with_blocked_asyncs (SCM proc);
SCM_API SCM scm_call_with_unblocked_asyncs (SCM proc);
void *scm_c_call_with_blocked_asyncs (void *(*p) (void *d), void *d);
void *scm_c_call_with_unblocked_asyncs (void *(*p) (void *d), void *d);
-void scm_with_blocked_asyncs (void);
-void scm_with_unblocked_asyncs (void);
+void scm_frame_block_asyncs (void);
+void scm_frame_unblock_asyncs (void);
SCM_API void scm_init_async (void);
#if (SCM_ENABLE_DEPRECATED == 1)