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

fixed char encoding error message and condition as per bug 243662.

This commit is contained in:
Abdulaziz Ghuloum 2008-06-28 02:49:50 -07:00
parent 45346ef865
commit 1cd581de70
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/ikarus.io.ss
View File

@ -1940,7 +1940,7 @@
[(ignore) (void)] [(ignore) (void)]
[(replace) (put-char p #\?)] [(replace) (put-char p #\?)]
[(raise) [(raise)
(raise (make-i/o-encoding-error p))] (raise (make-i/o-encoding-error p (integer->char b)))]
[else (die who "BUG: invalid die handling mode" p)])])) [else (die who "BUG: invalid die handling mode" p)])]))
(define (put-char-char-mode p c who) (define (put-char-char-mode p c who)
(flush-output-port p) (flush-output-port p)

2
scheme/ikarus.records.procedural.ss
View File

@ -255,7 +255,7 @@
(if (pair? ls) (if (pair? ls)
(let-values ([(m p) (f (cdr ls) (- n 1))]) (let-values ([(m p) (f (cdr ls) (- n 1))])
(values (cons (car ls) m) p)) (values (cons (car ls) m) p))
(die 'record-condtructor "insufficient arguments" (die 'record-constructor "insufficient arguments"
all-fields))))) all-fields)))))
(define (constructor main-rtd size prcd proto) (define (constructor main-rtd size prcd proto)

2
scheme/last-revision
View File

@ -1 +1 @@
1522 1523