fix port functions to use byte-ready? instead of char-ready?
svn: r5640
This commit is contained in:
parent
23241decd1
commit
dff013afc5
|
@ -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))))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user