From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 26 Mar 2017 20:50:46 +0000 (-0700)
Subject: Change symbols to be in NFC.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~72
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=66671022b5ef6413b623e66d0a6b2f88e95669a9;p=mit-scheme.git

Change symbols to be in NFC.
---

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index 83850a856..56f778a8a 100644
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -505,10 +505,11 @@ USA.
 	  #t))))
 
 (define (string-canonical-foldcase string)
-  (let ((nfd (string->nfd string)))
-    (if (nfd-string-case-folded? nfd)
-	nfd
-	(string->nfd (string-foldcase string)))))
+  (string->nfc
+   (let ((nfd (string->nfd string)))
+     (if (nfd-string-case-folded? nfd)
+	 nfd
+	 (string-foldcase string)))))
 
 ;;;; Normalization