conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed a couple of typos in ikarus.io.ss.

This commit is contained in:
Abdulaziz Ghuloum 2008-06-08 15:48:52 -07:00
parent ee950fcaf2
commit 665ca784d1
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/ikarus.io.ss
View File

@ -711,9 +711,9 @@
(unless (fixnum? c1) (unless (fixnum? c1)
(die who "invalid return value from read! procedure" c1)) (die who "invalid return value from read! procedure" c1))
(cond (cond
[(fx>= j 0) [(fx>= c1 0)
(unless (fx<= j max) (unless (fx<= c1 max)
(die who "read! returned a value out of range" j)) (die who "read! returned a value out of range" c1))
($set-port-index! p 0) ($set-port-index! p 0)
($set-port-size! p (fx+ c1 c0)) ($set-port-size! p (fx+ c1 c0))
c1] c1]
@ -837,7 +837,7 @@
(define (lookahead-char-utf8-mode p who) (define (lookahead-char-utf8-mode p who)
(define (do-error p who) (define (do-error p who)
(case (transcoder-error-handling-mode ($port-transcoder p)) (case (transcoder-error-handling-mode ($port-transcoder p))
[(ignore) (get-char p)] [(ignore) (lookahead-char p)]
[(replace) #\xFFFD] [(replace) #\xFFFD]
[(raise) [(raise)
(raise (make-i/o-decoding-error p))] (raise (make-i/o-decoding-error p))]

2
scheme/last-revision
View File

@ -1 +1 @@
1504 1506