From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 9 Jan 2019 07:45:31 +0000 (-0800)
Subject: Fix bug: characters with bucky bits not printing right.
X-Git-Tag: mit-scheme-pucked-10.1.10~6^2~56
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7b2ca80af79437d6f6d7c7ee0e72e6cec8d06291;p=mit-scheme.git

Fix bug: characters with bucky bits not printing right.
---

diff --git a/src/runtime/printer.scm b/src/runtime/printer.scm
index 0f7f2f72a..90af02c61 100644
--- a/src/runtime/printer.scm
+++ b/src/runtime/printer.scm
@@ -626,7 +626,8 @@ USA.
 	 (*print-string (number->string (char->integer char) 16) context))
 	((context-slashify? context)
 	 (*print-string "#\\" context)
-	 (if (and (char-in-set? char char-set:normal-printing)
+	 (if (and (fix:= 0 (char-bits char))
+		  (char-in-set? char char-set:normal-printing)
 		  (not (eq? 'separator:space (char-general-category char)))
 		  (allowed-char? char context))
 	     (*print-char char context)