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

4
collects/mzlib/port.ss
View File

@ -159,7 +159,7 @@
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
@ -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))))