From 38413e1a4582fd6c7319595badf99282accc47b7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 22 Oct 2004 21:17:13 +0000 Subject: [PATCH] . original commit: 554dc9ab50e24a82ff02d30f0ef616b5f34210b6 --- collects/mzlib/port.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/port.ss b/collects/mzlib/port.ss index e8027a8..ceb442f 100644 --- a/collects/mzlib/port.ss +++ b/collects/mzlib/port.ss @@ -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