mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

(scm_frame_unwind, scm_frame_unwind_handler): Renamed and changed all

Browse source 
uses.  (scm_frame_rewind, scm_frame_rewind_handler): Likewise.
This commit is contained in:
Marius Vollmer 2004-01-11 00:51:19 +00:00
parent 327967ef26
commit 16c5cac25a
5 changed files with 33 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/async.c
View file

@ -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);
}