From b43f0456fcddcbf135c90a05819f94133e98e636 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 20 Sep 2008 11:20:15 +0000 Subject: [PATCH] fix some r6rs printing problems svn: r11822 --- collects/rnrs/io/ports-6.ss | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/rnrs/io/ports-6.ss b/collects/rnrs/io/ports-6.ss index ff2a0faf07..1e6c8b44e3 100644 --- a/collects/rnrs/io/ports-6.ss +++ b/collects/rnrs/io/ports-6.ss @@ -965,9 +965,9 @@ [else 9])))] [(char? v) (case v - [(#\x7) 7] ; #\alarm - [(#\x1B) 5] ; #\esc - [(#\x7F) 8] ; #\delete + [(#\u7) 7] ; #\alarm + [(#\u1B) 5] ; #\esc + [(#\u7F) 8] ; #\delete [else (and (not (char-graphic? v)) (+ 3 (if ((char->integer v) . < . #x10000) @@ -1014,9 +1014,9 @@ (write-char #\" p)] [(char? v) (case v - [(#\x7) (display "#\\alarm" p)] - [(#\x1B) (display "#\\esc" p)] - [(#\x7F) (display "#\\delete" p)] + [(#\u7) (display "#\\alarm" p)] + [(#\u1B) (display "#\\esc" p)] + [(#\u7F) (display "#\\delete" p)] [else (display "#\\x" p) (let ([n (number->string (char->integer v) 16)])