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

fix the module reader for the case when there are non-ASCII unicode characters

Browse Source 
in comments before the #lang line

also add an #:init-position argument to peeking-input-port

original commit: d00aed6f1b2934f591204ea9b97199fae698ceae
This commit is contained in:
Robby Findler 2011-11-03 17:12:07 -05:00
parent fff213f279
commit 2d0fbd1f0c
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mzlib/port.rkt
View File

@ -428,8 +428,10 @@
(set! buffering? (eq? mode 'block)) (set! buffering? (eq? mode 'block))
(buffer-mode-proc mode)]))))) (buffer-mode-proc mode)])))))
(define peeking-input-port (define (peeking-input-port orig-in
(lambda (orig-in [name (object-name orig-in)] [delta 0]) [name (object-name orig-in)]
[delta 0]
#:init-position [init-position 1])
(make-input-port/read-to-peek (make-input-port/read-to-peek
name name
(lambda (s) (lambda (s)
@ -438,7 +440,10 @@
(if (eq? r 0) (handle-evt orig-in (lambda (v) 0)) r))) (if (eq? r 0) (handle-evt orig-in (lambda (v) 0)) r)))
(lambda (s skip default) (lambda (s skip default)
(peek-bytes-avail!* s (+ delta skip) #f orig-in)) (peek-bytes-avail!* s (+ delta skip) #f orig-in))
void))) void
#f
void
init-position))
(define relocate-input-port (define relocate-input-port
(lambda (p line col pos [close? #t]) (lambda (p line col pos [close? #t])