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

fix port functions to use byte-ready? instead of char-ready?

Browse Source 
svn: r5640
This commit is contained in:
Matthew Flatt 2007-02-20 01:42:03 +00:00
parent 23241decd1
commit dff013afc5
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mzlib/port.ss
View File

@ -159,8 +159,8 @@
try-again try-again
s)) s))
(define (do-read-it s) (define (do-read-it s)
(if (char-ready? peeked-r) (if (byte-ready? peeked-r)
(read-bytes-avail!* s peeked-r) (read-bytes-avail!* s peeked-r)
;; If nothing is saved from a peeking read, ;; If nothing is saved from a peeking read,
;; dispatch to `read', otherwise return ;; dispatch to `read', otherwise return
;; previously peeked data ;; previously peeked data
@ -182,9 +182,9 @@
(when (null? special-peeked) (when (null? special-peeked)
(set! special-peeked-tail #f))))]))) (set! special-peeked-tail #f))))])))
(define (peek-it-with-lock s skip unless-evt) (define (peek-it-with-lock s skip unless-evt)
(if use-manager? (if use-manager?
(with-manager-lock (lambda () (do-peek-it s skip unless-evt))) (with-manager-lock (lambda () (do-peek-it s skip unless-evt)))
(do-peek-it s skip unless-evt))) (do-peek-it s skip unless-evt)))
(define (peek-it s skip unless-evt) (define (peek-it s skip unless-evt)
(let ([v (peek-bytes-avail!* s skip unless-evt peeked-r)]) (let ([v (peek-bytes-avail!* s skip unless-evt peeked-r)])
(if (eq? v 0) (if (eq? v 0)
@ -417,7 +417,7 @@
(peek-it s skip #f))]) (peek-it s skip #f))])
(lambda (s skip unless-evt) (lambda (s skip unless-evt)
(if (or unless-evt (if (or unless-evt
(char-ready? peeked-r) (byte-ready? peeked-r)
(pair? special-peeked)) (pair? special-peeked))
(peek-it s skip unless-evt) (peek-it s skip unless-evt)
(fast-peek s skip fast-peek-k)))) (fast-peek s skip fast-peek-k))))