From dfa90962eb00e0beeba22261869ef730707048e0 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sun, 12 Sep 2010 06:52:29 +0000
Subject: [PATCH] fixing timeout issue

---
 lib/srfi/18/threads.c | 1 -
 1 file changed, 1 deletion(-)

diff --git a/lib/srfi/18/threads.c b/lib/srfi/18/threads.c
index dd5c22dd..3a3e2b15 100644
--- a/lib/srfi/18/threads.c
+++ b/lib/srfi/18/threads.c
@@ -527,7 +527,6 @@ sexp sexp_scheduler (sexp ctx sexp_api_params(self, n), sexp root_thread) {
         goto unblock_io_threads;
     } else {
       usleep(usecs);
-      sexp_context_timeoutp(res) = 1;
       sexp_context_waitp(res) = 0;
     }
   }