diff --git a/lib/srfi/18/threads.c b/lib/srfi/18/threads.c index 4cee606b..23d97a97 100644 --- a/lib/srfi/18/threads.c +++ b/lib/srfi/18/threads.c @@ -546,7 +546,7 @@ sexp sexp_scheduler (sexp ctx, sexp self, sexp_sint_t n, sexp root_thread) { if ((sexp_context_timeval(res).tv_sec == 0) && (sexp_context_timeval(res).tv_usec == 0)) { /* no timeout, wait for default 10ms */ - usecs = 10*1000 *100; /* 1s */ + usecs = 10*1000; } else { /* wait until the next timeout */ gettimeofday(&tval, NULL);