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
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))))