mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +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

5
libguile/ChangeLog
View file

@ -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> 2002-10-16 Marius Vollmer <marius.vollmer@uni-dortmund.de>
* async.c (scm_system_async_mark_for_thread): Validate thread * async.c (scm_system_async_mark_for_thread): Validate thread

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_DEFINE (scm_system_async, "system-async", 1, 0, 0,
(SCM thunk), (SCM thunk),
"This function is deprecated. You can use @var{thunk} directly\n" "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 #define FUNC_NAME s_scm_system_async
{ {
scm_c_issue_deprecation_warning scm_c_issue_deprecation_warning
@ -199,6 +201,8 @@ SCM_DEFINE (scm_system_async, "system-async", 1, 0, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
#endif /* SCM_ENABLE_DEPRECATED == 1 */
void void
scm_i_queue_async_cell (SCM c, scm_root_state *root) 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, 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 #undef FUNC_NAME
#endif /* SCM_DEBUG_DEPRECATED == 0 */ #endif /* SCM_ENABLE_DEPRECATED == 1 */
static void static void
increase_block (void *unused) increase_block (void *unused)

2
libguile/async.h
View file

@ -58,7 +58,6 @@
SCM_API void scm_async_click (void); SCM_API void scm_async_click (void);
SCM_API void scm_switch (void); SCM_API void scm_switch (void);
SCM_API SCM scm_async (SCM thunk); 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_async_mark (SCM a);
SCM_API SCM scm_system_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); 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) #if (SCM_ENABLE_DEPRECATED == 1)
SCM_API SCM scm_system_async (SCM thunk);
SCM_API SCM scm_unmask_signals (void); SCM_API SCM scm_unmask_signals (void);
SCM_API SCM scm_mask_signals (void); SCM_API SCM scm_mask_signals (void);