From 26e334fadc52a4cde2e04b0c4f5c639f64c033a5 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 22 Apr 2017 21:12:59 -0700
Subject: [PATCH] Change substring? to call string->nfc on its arguments.

---
 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 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)
-- 
2.25.1