diff options
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/ChangeLog | 5 | ||||
-rw-r--r-- | libguile/async.c | 10 | ||||
-rw-r--r-- | libguile/async.h | 2 |
3 files changed, 13 insertions, 4 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index d77a1b631..76823efb3 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2002-10-19 Dirk Herrmann <D.Herrmann@tu-bs.de> + + * async.h, async.c (scm_system_async): Fixed deprecation to work + correctly when deprecated features are excluded. + 2002-10-16 Marius Vollmer <marius.vollmer@uni-dortmund.de> * async.c (scm_system_async_mark_for_thread): Validate thread diff --git a/libguile/async.c b/libguile/async.c index 3d99f5962..9a11a9e11 100644 --- a/libguile/async.c +++ b/libguile/async.c @@ -186,10 +186,12 @@ scm_async_click () } } +#if (SCM_ENABLE_DEPRECATED == 1) + SCM_DEFINE (scm_system_async, "system-async", 1, 0, 0, (SCM thunk), "This function is deprecated. You can use @var{thunk} directly\n" - "instead of explicitely creating a asnc object.\n") + "instead of explicitely creating an async object.\n") #define FUNC_NAME s_scm_system_async { scm_c_issue_deprecation_warning @@ -199,6 +201,8 @@ SCM_DEFINE (scm_system_async, "system-async", 1, 0, 0, } #undef FUNC_NAME +#endif /* SCM_ENABLE_DEPRECATED == 1 */ + void scm_i_queue_async_cell (SCM c, scm_root_state *root) { @@ -269,7 +273,7 @@ SCM_DEFINE (scm_noop, "noop", 0, 0, 1, -#if (SCM_DEBUG_DEPRECATED == 0) +#if (SCM_ENABLE_DEPRECATED == 1) SCM_DEFINE (scm_unmask_signals, "unmask-signals", 0, 0, 0, (), @@ -303,7 +307,7 @@ SCM_DEFINE (scm_mask_signals, "mask-signals", 0, 0, 0, } #undef FUNC_NAME -#endif /* SCM_DEBUG_DEPRECATED == 0 */ +#endif /* SCM_ENABLE_DEPRECATED == 1 */ static void increase_block (void *unused) diff --git a/libguile/async.h b/libguile/async.h index 984c04977..f58703b63 100644 --- a/libguile/async.h +++ b/libguile/async.h @@ -58,7 +58,6 @@ SCM_API void scm_async_click (void); SCM_API void scm_switch (void); SCM_API SCM scm_async (SCM thunk); -SCM_API SCM scm_system_async (SCM thunk); SCM_API SCM scm_async_mark (SCM a); SCM_API SCM scm_system_async_mark (SCM a); SCM_API SCM scm_system_async_mark_for_thread (SCM a, SCM thread); @@ -73,6 +72,7 @@ SCM_API void scm_init_async (void); #if (SCM_ENABLE_DEPRECATED == 1) +SCM_API SCM scm_system_async (SCM thunk); SCM_API SCM scm_unmask_signals (void); SCM_API SCM scm_mask_signals (void); |