Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 14:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Another patch from Lorenzo for non-fixnum thread timeouts.

Browse source
This commit is contained in:
Alex Shinn 2012-09-03 20:17:46 +09:00
parent 4ad27c0179
commit fcaa906954
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/srfi/18/threads.c
View file

@ -147,9 +147,9 @@ static void sexp_insert_timed (sexp ctx, sexp thread, sexp timeout) {
sexp ls1=SEXP_NULL, ls2; sexp ls1=SEXP_NULL, ls2;
sexp_delete_list(ctx, SEXP_G_THREADS_PAUSED, thread); sexp_delete_list(ctx, SEXP_G_THREADS_PAUSED, thread);
ls2 = sexp_global(ctx, SEXP_G_THREADS_PAUSED); 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); gettimeofday(&sexp_context_timeval(thread), NULL);
if (sexp_integerp(timeout)) { if (sexp_fixnump(timeout)) {
sexp_context_timeval(thread).tv_sec += sexp_unbox_fixnum(timeout); sexp_context_timeval(thread).tv_sec += sexp_unbox_fixnum(timeout);
#if SEXP_USE_FLONUMS #if SEXP_USE_FLONUMS
} else if (sexp_flonump(timeout)) { } else if (sexp_flonump(timeout)) {