From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 Feb 2017 06:15:08 +0000 (-0800)
Subject: Always use names for separator:space characters.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~105
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ce8cc86adf578c1a782f3489247213716170d9db;p=mit-scheme.git

Always use names for separator:space characters.
---

diff --git a/src/runtime/unpars.scm b/src/runtime/unpars.scm
index 04718f69b..90fc2035d 100644
--- a/src/runtime/unpars.scm
+++ b/src/runtime/unpars.scm
@@ -486,6 +486,7 @@ USA.
       (begin
         (*unparse-string "#\\" context)
 	(if (and (char-in-set? char char-set:normal-printing)
+                 (not (eq? 'separator:space (char-general-category char)))
 		 (allowed-char? char context))
 	    (*unparse-char char context)
 	    (*unparse-string (char->name char) context)))