suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Chez Scheme: sleep of non-positive duration now returns immediately

Browse Source 
A negative duration would previously result in an infinite pause in
Windows.
This commit is contained in:
Bob Burger 2021-03-11 11:35:27 -05:00 committed by Matthew Flatt
parent 5e1df80a00
commit 31358698f3
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/ChezScheme/release_notes/release_notes.stex
View File

@ -1961,6 +1961,12 @@ in fasl files does not generally make sense.
%----------------------------------------------------------------------------- %-----------------------------------------------------------------------------
\section{Bug Fixes}\label{section:bugfixes} \section{Bug Fixes}\label{section:bugfixes}
\subsection{\protect\scheme{sleep} with negative duration (9.5.5)}
Prior to this release, \scheme{sleep} of a negative duration would
result in an infinite pause in Windows. Now \scheme{sleep} returns
immediately on all platforms when given a negative duration.
\subsection{Buffering signals (9.5.3)} \subsection{Buffering signals (9.5.3)}
Prior to this release, only one unhandled signal was buffered for Prior to this release, only one unhandled signal was buffered for

4
racket/src/ChezScheme/s/7.ss
View File

@ -771,7 +771,9 @@
(lambda (t) (lambda (t)
(unless (and (time? t) (eq? (time-type t) 'time-duration)) (unless (and (time? t) (eq? (time-type t) 'time-duration))
($oops who "~s is not a time record of type time-duration" t)) ($oops who "~s is not a time record of type time-duration" t))
(fp (time-second t) (time-nanosecond t))))) (let ([s (time-second t)])
(when (>= s 0)
(fp s (time-nanosecond t)))))))
(define $scheme-greeting (define $scheme-greeting
(lambda () (lambda ()