From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 23 Apr 2017 04:15:24 +0000 (-0700)
Subject: In substring, only return arg string if it's in NFC.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~6
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2337316fb18cb9b11378d6a1677fc429443e8a1b;p=mit-scheme.git

In substring, only return arg string if it's in NFC.
---

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index bfbcfb556..b84c3a5ab 100644
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -387,7 +387,7 @@ USA.
     (if (and (fix:= start 0)
 	     (fix:= end len)
 	     (not (slice? string))
-	     (not (ustring-mutable? string)))
+	     (ustring-in-nfc? string))
 	string
 	(translate-slice string start end
 	  (lambda (string start end)