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

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index 9691cf22b41189a81c8827bc9e279a71b9137752..bfbcfb55636bab4ff4a7c1988c2a3d620caab0b2 100644 (file)
--- 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)