~ chicken-core (master) a1638757d06790825c605d1b21b42e476165b1e1

commit a1638757d06790825c605d1b21b42e476165b1e1
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jul 4 18:20:23 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jul 4 18:20:23 2026 +0200

    show non-ctrl/non-whitespace characters without escaping when pretty-printing
    
    (reported by "dataventis")

diff --git a/extras.scm b/extras.scm
index d58c38ad..2111666a 100644
--- a/extras.scm
+++ b/extras.scm
@@ -114,8 +114,7 @@
 				 (out "\\"
 				      (out (##sys#substring obj i j)
 					   col))))
-			  ((or (char<? c #\x20)
-			       (char>=? c #\x7f))
+			  ((char<? c #\x20)
 			   (loop (fx+ j 1)
 				 (fx+ j 1)
 				 (let ((col2