}
SCM_DEFINE (scm_try_mutex, "try-mutex", 1, 0, 0,
}
SCM_DEFINE (scm_try_mutex, "try-mutex", 1, 0, 0,
"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
"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
if (msg)
scm_misc_error (NULL, msg, SCM_EOL);
return scm_from_bool (res);
if (msg)
scm_misc_error (NULL, msg, SCM_EOL);
return scm_from_bool (res);