~ chicken-core (chicken-5) c14ca4975e8e1d4966042e7d4e6d091e53c903b6

commit c14ca4975e8e1d4966042e7d4e6d091e53c903b6
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Oct 21 04:34:35 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Oct 21 04:34:35 2010 -0400

    fixed broken timeout test

diff --git a/scheduler.scm b/scheduler.scm
index 6d194209..047cd61e 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -237,7 +237,7 @@ EOF
 (define (##sys#thread-block-for-timeout! t tm)
   (dbg t " blocks for timeout " tm)
   (unless (and (flonum? tm)			; to catch old code that uses fixum timeouts
-	       (fp> tm 0))
+	       (fp> tm 0.0))
     (panic "##sys#thread-block-for-timeout!: invalid timeout"))
   ;; This should really use a balanced tree:
   (let loop ([tl ##sys#timeout-list] [prev #f])