From fd264012b95fbfd17e829d88ffe9ae3234b22c57 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 30 May 2001 15:55:55 +0000
Subject: [PATCH] Added argument conversion for sleep (prevents a core dump on
 inexact numbers).

---
 scheme/rts/sleep.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/rts/sleep.scm b/scheme/rts/sleep.scm
index 6c6e29e..f7ea628 100644
--- a/scheme/rts/sleep.scm
+++ b/scheme/rts/sleep.scm
@@ -7,7 +7,8 @@
     (disable-interrupts!)
     (enqueue-thread! queue (current-thread))
     (set! *dozers*
-	  (insert (cons (+ (real-time) n) queue)
+	  (insert (cons (+ (real-time) (inexact->exact (round n)))
+			queue)
 		  *dozers*
 		  (lambda (frob1 frob2)
 		    (< (car frob1) (car frob2)))))