Update of /cvsroot/scsh/scsh-0.6/scheme/rts
In directory usw-pr-cvs1:/tmp/cvs-serv7790/scheme/rts
Modified Files:
sleep.scm
Log Message:
Added argument conversion for sleep (prevents a core dump on inexact numbers).
Index: sleep.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/rts/sleep.scm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** sleep.scm 1999/09/14 12:44:58 1.1.1.1
--- sleep.scm 2001/05/30 15:55:55 1.2
***************
*** 8,12 ****
(enqueue-thread! queue (current-thread))
(set! *dozers*
! (insert (cons (+ (real-time) n) queue)
*dozers*
(lambda (frob1 frob2)
--- 8,13 ----
(enqueue-thread! queue (current-thread))
(set! *dozers*
! (insert (cons (+ (real-time) (inexact->exact (round n)))
! queue)
*dozers*
(lambda (frob1 frob2)
|