~ chicken-core (chicken-5) cbd78f16cf935f8f084ae29c3ac5c60ffcbfc1a5

commit cbd78f16cf935f8f084ae29c3ac5c60ffcbfc1a5
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jan 3 09:14:25 2012 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jan 5 09:29:47 2012 +0100

    print chars outside of ASCII range as #\x... not #\u...

diff --git a/library.scm b/library.scm
index aed45dc4..30d47885 100644
--- a/library.scm
+++ b/library.scm
@@ -3220,12 +3220,9 @@ EOF
 			  (cond [(char-name x) 
 				 => (lambda (cn) 
 				      (outstr port (##sys#slot cn 1)) ) ]
-				[(fx< code 32)
+				[(or (fx< code 32) (fx> code 255))
 				 (outchr port #\x)
 				 (outstr port (##sys#number->string code 16)) ]
-				[(fx> code 255)
-				 (outchr port (if (fx> code #xffff) #\U #\u))
-				 (outstr port (##sys#number->string code 16)) ]
 				[else (outchr port x)] ) ) ] 
 		       [else (outchr port x)] ) )
 		((##core#inline "C_fixnump" x) (outstr port (##sys#number->string x)))