mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

(scm_try_mutex): Renamed argument for consistency.

Browse source
This commit is contained in:
Marius Vollmer 2005-03-04 17:54:50 +00:00
parent d0a45bfffd
commit ba1b72235a
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/threads.c
View file

@ -900,7 +900,7 @@ fat_mutex_trylock (fat_mutex *m, int *resp)
} }
SCM_DEFINE (scm_try_mutex, "try-mutex", 1, 0, 0, SCM_DEFINE (scm_try_mutex, "try-mutex", 1, 0, 0,
(SCM mx), (SCM mutex),
"Try to lock @var{mutex}. If the mutex is already locked by someone " "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}. ") "else, return @code{#f}. Else lock the mutex and return @code{#t}. ")
#define FUNC_NAME s_scm_try_mutex #define FUNC_NAME s_scm_try_mutex
@ -908,9 +908,9 @@ SCM_DEFINE (scm_try_mutex, "try-mutex", 1, 0, 0,
char *msg; char *msg;
int res; int res;
SCM_VALIDATE_MUTEX (1, mx); SCM_VALIDATE_MUTEX (1, mutex);
msg = fat_mutex_trylock (SCM_MUTEX_DATA (mx), &res); msg = fat_mutex_trylock (SCM_MUTEX_DATA (mutex), &res);
if (msg) if (msg)
scm_misc_error (NULL, msg, SCM_EOL); scm_misc_error (NULL, msg, SCM_EOL);
return scm_from_bool (res); return scm_from_bool (res);