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 62902286b0a1b23cce89b0eb13a46ce5ea05a3a5..c8c137529af8b38c4faff4ceaa0bf6c425a9bde3 100644 (file)
--- 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)))