From fcaa9069543101644c24a981634cb64fbbdee70f Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 3 Sep 2012 20:17:46 +0900 Subject: [PATCH] Another patch from Lorenzo for non-fixnum thread timeouts. --- lib/srfi/18/threads.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/srfi/18/threads.c b/lib/srfi/18/threads.c index 17e6d6c3..730a27e4 100644 --- a/lib/srfi/18/threads.c +++ b/lib/srfi/18/threads.c @@ -147,9 +147,9 @@ static void sexp_insert_timed (sexp ctx, sexp thread, sexp timeout) { sexp ls1=SEXP_NULL, ls2; sexp_delete_list(ctx, SEXP_G_THREADS_PAUSED, thread); ls2 = sexp_global(ctx, SEXP_G_THREADS_PAUSED); - if (sexp_integerp(timeout) || sexp_flonump(timeout)) + if (sexp_fixnump(timeout) || sexp_flonump(timeout)) gettimeofday(&sexp_context_timeval(thread), NULL); - if (sexp_integerp(timeout)) { + if (sexp_fixnump(timeout)) { sexp_context_timeval(thread).tv_sec += sexp_unbox_fixnum(timeout); #if SEXP_USE_FLONUMS } else if (sexp_flonump(timeout)) {