strings containing non-ascii characters are written using either

hex escaping or as-is depending on the value of the print-unicode
parameter.
This commit is contained in:
Abdulaziz Ghuloum 2008-08-10 11:03:09 -07:00
parent 22d216f9ed
commit 2ad6d9bddf
2 changed files with 4 additions and 3 deletions

View File

@ -405,9 +405,10 @@
(write-char c p)]
[($fx< b 127)
(write-char c p)]
[(unicode-printable-char? c)
[(print-unicode)
(write-char c p)]
[else (write-inline-hex b p)]))
[else
(write-inline-hex b p)]))
(loop x (fxadd1 i) n p))))
(write-char #\" p)
(loop x 0 (string-length x) p)

View File

@ -1 +1 @@
1580
1581