summaryrefslogtreecommitdiff
path: root/libguile/async.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2002-10-19 08:22:50 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2002-10-19 08:22:50 +0000
commit100ae50db23bfcf78a0832b4b3eb857c7067f69b (patch)
tree6a4c5b7b39aea85bc01558053a82ec203976fab1 /libguile/async.c
parentf0b4d944b4da08be29c9f647b2b61acf5ed9c922 (diff)
downloadguile-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.c10
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)