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

(scm_eval_body): Use scm_i_dynwind_pthread_mutex_lock

Browse source 
oinstead of scm_dynwind_pthread_mutex_lock so that it works when
configured --without-threads.
(SCM_APPLY, CEVAL): Likewise.  Thanks to Han-Wen Nienhuys!
This commit is contained in:
Marius Vollmer 2006-02-12 22:54:29 +00:00
parent ba500ec099
commit 677ad9d214
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/eval.c
View file

@ -2970,7 +2970,7 @@ scm_eval_body (SCM code, SCM env)
if (SCM_ISYMP (SCM_CAR (code)))
{
scm_dynwind_begin (0);
scm_dynwind_pthread_mutex_lock (&source_mutex);
scm_i_dynwind_pthread_mutex_lock (&source_mutex);
/* check for race condition */
if (SCM_ISYMP (SCM_CAR (code)))
m_expand_body (code, env);
@ -3369,7 +3369,7 @@ dispatch:
if (SCM_ISYMP (form))
{
scm_dynwind_begin (0);
scm_dynwind_pthread_mutex_lock (&source_mutex);
scm_i_dynwind_pthread_mutex_lock (&source_mutex);
/* check for race condition */
if (SCM_ISYMP (SCM_CAR (x)))
m_expand_body (x, env);
@ -4969,7 +4969,7 @@ tail:
if (SCM_ISYMP (SCM_CAR (proc)))
{
scm_dynwind_begin (0);
scm_dynwind_pthread_mutex_lock (&source_mutex);
scm_i_dynwind_pthread_mutex_lock (&source_mutex);
/* check for race condition */
if (SCM_ISYMP (SCM_CAR (proc)))
m_expand_body (proc, args);