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

* async.h, async.c (scm_system_async): Fixed deprecation to work

Browse source 
correctly when deprecated features are excluded.
This commit is contained in:
Dirk Herrmann 2002-10-19 08:22:50 +00:00
parent f0b4d944b4
commit 100ae50db2
3 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/async.c
View file

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