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

.

Browse Source 
original commit: 554dc9ab50e24a82ff02d30f0ef616b5f34210b6
This commit is contained in:
Matthew Flatt 2004-10-22 21:17:13 +00:00
parent 4bad03dc02
commit 38413e1a45
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/port.ss
View File

@ -197,7 +197,7 @@
(do-peek-it s skip unless-evt)))
(define (peek-it s skip unless-evt)
(let ([v (peek-bytes-avail!* s skip unless-evt peeked-r)])
(if (zero? v)
(if (eq? v 0)
(call-with-semaphore
lock-semaphore
peek-it-with-lock
@ -206,7 +206,7 @@
v)))
(define (do-peek-it s skip unless-evt)
(let ([v (peek-bytes-avail!* s skip unless-evt peeked-r)])
(if (zero? v)
(if (eq? v 0)
;; The peek may have failed because peeked-r is empty,
;; because unless-evt is ready, or because the skip is
;; far. Handle nicely the common case where there are no