summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/async.c')
-rw-r--r--libguile/async.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/async.c b/libguile/async.c
index b4b8eb4e6..34165fe11 100644
--- a/libguile/async.c
+++ b/libguile/async.c
@@ -367,8 +367,8 @@ scm_c_call_with_unblocked_asyncs (void *(*proc) (void *data), void *data)
void
scm_frame_block_asyncs ()
{
- scm_frame_rewind (increase_block, NULL, SCM_F_WIND_EXPLICITLY);
- scm_frame_unwind (decrease_block, NULL, SCM_F_WIND_EXPLICITLY);
+ scm_frame_rewind_handler (increase_block, NULL, SCM_F_WIND_EXPLICITLY);
+ scm_frame_unwind_handler (decrease_block, NULL, SCM_F_WIND_EXPLICITLY);
}
void
@@ -377,8 +377,8 @@ scm_frame_unblock_asyncs ()
if (scm_root->block_asyncs == 0)
scm_misc_error ("scm_with_unblocked_asyncs",
"asyncs already unblocked", SCM_EOL);
- scm_frame_rewind (decrease_block, NULL, SCM_F_WIND_EXPLICITLY);
- scm_frame_unwind (increase_block, NULL, SCM_F_WIND_EXPLICITLY);
+ scm_frame_rewind_handler (decrease_block, NULL, SCM_F_WIND_EXPLICITLY);
+ scm_frame_unwind_handler (increase_block, NULL, SCM_F_WIND_EXPLICITLY);
}