From a6f22597800a9875f9332c07c83c80f50920be76 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 22 Apr 2017 23:06:24 -0700 Subject: [PATCH] Convert string to NFC prior to hashing. --- src/runtime/ustring.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))) -- 2.25.1