diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2002-10-19 08:22:50 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2002-10-19 08:22:50 +0000 |
commit | 100ae50db23bfcf78a0832b4b3eb857c7067f69b (patch) | |
tree | 6a4c5b7b39aea85bc01558053a82ec203976fab1 /libguile/async.c | |
parent | f0b4d944b4da08be29c9f647b2b61acf5ed9c922 (diff) | |
download | guile-100ae50db23bfcf78a0832b4b3eb857c7067f69b.tar.gz |
* async.h, async.c (scm_system_async): Fixed deprecation to work
correctly when deprecated features are excluded.
Diffstat (limited to 'libguile/async.c')
-rw-r--r-- | libguile/async.c | 10 |
1 files changed, 7 insertions, 3 deletions
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) |