diff --git a/hyphenate/hyphenate/private/core.rkt b/hyphenate/hyphenate/private/core.rkt index 36807549..8a4d0fe6 100644 --- a/hyphenate/hyphenate/private/core.rkt +++ b/hyphenate/hyphenate/private/core.rkt @@ -52,8 +52,8 @@ (define-values (strs nums) (for/lists (strs nums) ;; using unicode-aware regexps to allow unicode hyphenation patterns - ;; a pattern is a list of subpatterns, each of which has maybe a character followed by maybe a number. - ;; the first position may just have a number. + ;; a pattern is a list of subpatterns, each of which is a character possibly followed by a number. + ;; also, the first position may just have a number. ([subpat (in-list (regexp-match* #px"^\\d?|(\\p{L}|\\p{P})\\d?" pat))]) (define str (cond [(regexp-match #px"(\\p{L}|\\p{P})?" subpat) => car]