Added argument conversion for sleep (prevents a core dump on inexact numbers).

2001-05-30 15:55:55 +00:00 · 2001-05-30 15:55:55 +00:00 · fd264012b9
parent 574cbd804e
commit fd264012b9
1 changed files with 2 additions and 1 deletions
--- 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)))))