diff options
author | Andy Wingo <wingo@pobox.com> | 2016-11-05 19:39:12 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-11-05 19:39:12 +0100 |
commit | 03ffd726df81731a0b1738bf2bb4842ea730c680 (patch) | |
tree | efad5f316cf22e0c916528ce6f7478aef26b5847 /libguile/deprecated.c | |
parent | 8d907758a0a0d4e4a02ccb91e56ba6e42c6a747f (diff) | |
download | guile-03ffd726df81731a0b1738bf2bb4842ea730c680.tar.gz |
scm_timed_lock_mutex replaces scm_lock_mutex_timed
* libguile/deprecated.h:
* libguile/deprecated.c (scm_lock_mutex_timed): Deprecate.
* libguile/threads.h:
* libguile/threads.c (scm_timed_lock_mutex): New function.
(scm_join_thread): Fix formatting.
(scm_lock_mutex): Fix formatting and update to scm_timed_lock_mutex
change.
(scm_try_mutex): Update to scm_timed_lock_mutex.
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r-- | libguile/deprecated.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index d2e01f3b7..6da604e42 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -700,6 +700,21 @@ scm_make_mutex_with_flags (SCM flags) } SCM +scm_lock_mutex_timed (SCM m, SCM timeout, SCM owner) +{ + scm_c_issue_deprecation_warning + ("'scm_lock_mutex_timed' is deprecated. " + "Use 'scm_timed_lock_mutex' instead."); + + if (!SCM_UNBNDP (owner) && !scm_is_false (owner)) + scm_c_issue_deprecation_warning + ("The 'owner' argument to 'scm_lock_mutex_timed' is deprecated. " + "Use SRFI-18 directly if you need this concept."); + + return scm_timed_lock_mutex (m, timeout); +} + +SCM scm_unlock_mutex_timed (SCM mx, SCM cond, SCM timeout) { scm_c_issue_deprecation_warning |