~ chicken-core (chicken-5) c4d21d453bbd4fa1217f50b4c167abee764f9673

commit c4d21d453bbd4fa1217f50b4c167abee764f9673
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Nov 10 04:45:31 2010 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Nov 10 04:45:31 2010 -0500

    don't escape chars > 127

diff --git a/library.scm b/library.scm
index 2be137a5..764c6fc0 100644
--- a/library.scm
+++ b/library.scm
@@ -2991,7 +2991,6 @@ EOF
 	(define (specialchar? chr)
 	  (let ([c (char->integer chr)])
 	    (or (fx<= c 32)
-		(fx>= c 128)
 		(memq chr special-characters) ) ) )
 
 	(define (outreadablesym port str)