Did the follwing renamings: scm_with_blocked_asyncs ->

scm_frame_block_asyncs, scm_with_unblocked_asyncs ->
scm_frame_unblock_asyncs.  Changed all uses.

diff --git a/libguile/async.c b/libguile/async.c
index 276292a..b4b8eb4 100644 (file)
--- 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 3174c7a..8bb1ef3 100644 (file)
--- 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)