diff options
Diffstat (limited to 'libguile/coop.c')
-rw-r--r-- | libguile/coop.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/libguile/coop.c b/libguile/coop.c index 987a71f9a..ca057b423 100644 --- a/libguile/coop.c +++ b/libguile/coop.c @@ -40,7 +40,7 @@ * If you do not wish that, delete this exception notice. */ -/* $Id: coop.c,v 1.28 2001-10-06 16:30:20 mdj Exp $ */ +/* $Id: coop.c,v 1.29 2001-11-04 15:52:29 ela Exp $ */ /* Cooperative thread library, based on QuickThreads */ @@ -422,7 +422,13 @@ coop_condition_variable_timed_wait_mutex (coop_c *c, const struct timespec *abstime) { coop_t *old, *t; +#ifdef ETIMEDOUT int res = ETIMEDOUT; +#elif defined (WSAETIMEDOUT) + int res = WSAETIMEDOUT; +#else + int res = 0; +#endif /* coop_mutex_unlock (m); */ t = coop_qget (&(m->waiting)); @@ -842,7 +848,6 @@ scm_thread_usleep (unsigned long usec) { /* We're so cheap. */ scm_thread_sleep (usec / 1000000); - struct timeval timeout; return 0; /* Maybe we should calculate actual time slept, but this is faster... :) */ } |