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

Did the follwing renamings: scm_with_blocked_asyncs ->

Browse source 
scm_frame_block_asyncs, scm_with_unblocked_asyncs ->
scm_frame_unblock_asyncs.  Changed all uses.
This commit is contained in:
Marius Vollmer 2004-01-07 18:03:18 +00:00
parent ba40113e70
commit dfe610a085
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/async.c
View file

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

4
libguile/async.h
View file

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