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

fix some r6rs printing problems

Browse Source 
svn: r11822
This commit is contained in:
Matthew Flatt 2008-09-20 11:20:15 +00:00
parent a79058812e
commit b43f0456fc
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/rnrs/io/ports-6.ss
View File

@ -965,9 +965,9 @@
[else 9])))] [else 9])))]
[(char? v) [(char? v)
(case v (case v
[(#\x7) 7] ; #\alarm [(#\u7) 7] ; #\alarm
[(#\x1B) 5] ; #\esc [(#\u1B) 5] ; #\esc
[(#\x7F) 8] ; #\delete [(#\u7F) 8] ; #\delete
[else (and (not (char-graphic? v)) [else (and (not (char-graphic? v))
(+ 3 (+ 3
(if ((char->integer v) . < . #x10000) (if ((char->integer v) . < . #x10000)
@ -1014,9 +1014,9 @@
(write-char #\" p)] (write-char #\" p)]
[(char? v) [(char? v)
(case v (case v
[(#\x7) (display "#\\alarm" p)] [(#\u7) (display "#\\alarm" p)]
[(#\x1B) (display "#\\esc" p)] [(#\u1B) (display "#\\esc" p)]
[(#\x7F) (display "#\\delete" p)] [(#\u7F) (display "#\\delete" p)]
[else [else
(display "#\\x" p) (display "#\\x" p)
(let ([n (number->string (char->integer v) 16)]) (let ([n (number->string (char->integer v) 16)])