From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 23 Apr 2017 04:12:59 +0000 (-0700)
Subject: Change substring? to call string->nfc on its arguments.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~7
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=26e334fadc52a4cde2e04b0c4f5c639f64c033a5;p=mit-scheme.git

Change substring? to call string->nfc on its arguments.
---

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index 9691cf22b..bfbcfb556 100644
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -1509,7 +1509,7 @@ USA.
 
 (define (substring? pattern text)
   (and (or (fix:= 0 (string-length pattern))
-	   (string-search-forward pattern text))
+	   (string-search-forward (string->nfc pattern) (string->nfc text)))
        #t))
 
 (define (%dumb-string-search-forward pattern pend text tstart tlast)