From dff013afc5449b7c0b3e41e7dcba0edf8491ba18 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 20 Feb 2007 01:42:03 +0000 Subject: [PATCH] fix port functions to use byte-ready? instead of char-ready? svn: r5640 --- collects/mzlib/port.ss | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/mzlib/port.ss b/collects/mzlib/port.ss index 7ef6577716..c9c53095f8 100644 --- a/collects/mzlib/port.ss +++ b/collects/mzlib/port.ss @@ -159,8 +159,8 @@ try-again s)) (define (do-read-it s) - (if (char-ready? peeked-r) - (read-bytes-avail!* s peeked-r) + (if (byte-ready? peeked-r) + (read-bytes-avail!* s peeked-r) ;; If nothing is saved from a peeking read, ;; dispatch to `read', otherwise return ;; previously peeked data @@ -182,9 +182,9 @@ (when (null? special-peeked) (set! special-peeked-tail #f))))]))) (define (peek-it-with-lock s skip unless-evt) - (if use-manager? - (with-manager-lock (lambda () (do-peek-it s skip unless-evt))) - (do-peek-it s skip unless-evt))) + (if use-manager? + (with-manager-lock (lambda () (do-peek-it s skip unless-evt))) + (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 (eq? v 0) @@ -417,7 +417,7 @@ (peek-it s skip #f))]) (lambda (s skip unless-evt) (if (or unless-evt - (char-ready? peeked-r) + (byte-ready? peeked-r) (pair? special-peeked)) (peek-it s skip unless-evt) (fast-peek s skip fast-peek-k))))