scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
mainzelm 2001-05-30 15:55:55 +00:00
parent 574cbd804e
commit fd264012b9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/rts/sleep.scm
View File

@ -7,7 +7,8 @@
(disable-interrupts!) (disable-interrupts!)
(enqueue-thread! queue (current-thread)) (enqueue-thread! queue (current-thread))
(set! *dozers* (set! *dozers*
(insert (cons (+ (real-time) n) queue) (insert (cons (+ (real-time) (inexact->exact (round n)))
queue)
*dozers* *dozers*
(lambda (frob1 frob2) (lambda (frob1 frob2)
(< (car frob1) (car frob2))))) (< (car frob1) (car frob2)))))