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

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 2002-12-10 08:54:48 +00:00
parent 52340b651a
commit 06babeccd1
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/threads.c
View file

@ -1070,10 +1070,10 @@ scm_cond_wait (scm_t_cond *c, scm_t_mutex *m)
} }
int int
scm_cond_timedwait (scm_t_cond *c, scm_t_mutex *m) scm_cond_timedwait (scm_t_cond *c, scm_t_mutex *m, const struct timespec *wt)
{ {
scm_thread *t = scm_i_leave_guile (); scm_thread *t = scm_i_leave_guile ();
int res = scm_i_plugin_cond_timedwait (c, m); int res = scm_i_plugin_cond_timedwait (c, m, wt);
scm_i_enter_guile (t); scm_i_enter_guile (t);
return res; return res;
} }