From 66671022b5ef6413b623e66d0a6b2f88e95669a9 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 26 Mar 2017 13:50:46 -0700 Subject: [PATCH] Change symbols to be in NFC. --- src/runtime/ustring.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 -- 2.25.1