From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 23 Apr 2017 06:06:24 +0000 (-0700)
Subject: Convert string to NFC prior to hashing.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a6f22597800a9875f9332c07c83c80f50920be76;p=mit-scheme.git

Convert string to NFC prior to hashing.
---

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index b468023ee..cb3bb3b21 100644
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -1911,7 +1911,7 @@ USA.
 	      string))
 
 (define (string-hash string #!optional modulus)
-  (let ((string* (string-for-primitive (string->nfd string))))
+  (let ((string* (string-for-primitive (string->nfc string))))
     (if (default-object? modulus)
 	((ucode-primitive string-hash) string*)
 	((ucode-primitive string-hash-mod) string* modulus))))