From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 11 Feb 2017 08:32:54 +0000 (-0800)
Subject: Change implementation of #\<char> to show all "graphic" characters.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~141
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a2a4e86bacf2de9ce1c11c6f9f6efa508a396414;p=mit-scheme.git

Change implementation of #\<char> to show all "graphic" characters.

This isn't quite right -- it doesn't support Unicode very well -- but will do
for now.
---

diff --git a/src/runtime/char.scm b/src/runtime/char.scm
index 62902286b..c8c137529 100644
--- a/src/runtime/char.scm
+++ b/src/runtime/char.scm
@@ -243,7 +243,7 @@ USA.
      (cond ((code->name code))
 	   ((not (fix:< code #x80))
 	    (string-append "x" (number->string code 16)))
-	   ((scalar-value-in-char-set? code char-set:symbol-constituent)
+	   ((scalar-value-in-char-set? code char-set:graphic)
 	    (string (integer->char code)))
 	   ((and (if (default-object? slashify?) #f slashify?)
 		 (not (fix:= 0 bits)))