mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

try-mutex in terms of mutex-lock

Browse source 
* libguile/threads.c (scm_try_mutex): Just call scm_lock_mutex_timed
  with a zero timeout.
* module/ice-9/threads.scm (try-mutex): Likewise.
This commit is contained in:
Andy Wingo 2016-11-02 21:29:22 +01:00
parent 10471f40fe
commit 0f5a59b215
2 changed files with 8 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

22
libguile/threads.c
View file

@ -1311,27 +1311,11 @@ scm_dynwind_lock_mutex (SCM mutex)
SCM_F_WIND_EXPLICITLY);
}
SCM_DEFINE (scm_try_mutex, "try-mutex", 1, 0, 0,
(SCM mutex),
"Try to lock @var{mutex}. If the mutex is already locked by someone "
"else, return @code{#f}. Else lock the mutex and return @code{#t}. ")
#define FUNC_NAME s_scm_try_mutex
SCM
scm_try_mutex (SCM mutex)
{
SCM exception;
int ret = 0;
scm_t_timespec cwaittime, *waittime = NULL;
SCM_VALIDATE_MUTEX (1, mutex);
to_timespec (scm_from_int(0), &cwaittime);
waittime = &cwaittime;
exception = fat_mutex_lock (mutex, waittime, SCM_UNDEFINED, &ret);
if (!scm_is_false (exception))
scm_ithrow (SCM_CAR (exception), scm_list_1 (SCM_CDR (exception)), 1);
return ret ? SCM_BOOL_T : SCM_BOOL_F;
return scm_lock_mutex_timed (mutex, SCM_INUM0, SCM_UNDEFINED);
}
#undef FUNC_NAME
/*** Fat condition variables */

5
module/ice-9/threads.scm
View file

@ -136,6 +136,11 @@ Once @var{thunk} or @var{handler} returns, the return value is made the
(lp))))
thread))
(define* (try-mutex mutex)
"Try to lock @var{mutex}. If the mutex is already locked, return
@code{#f}. Otherwise lock the mutex and return @code{#t}."
(lock-mutex mutex 0))
;;; Macros first, so that the procedures expand correctly.