From 57217bc10ec35d5c785353b754afb05b57308600 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 25 Oct 2018 14:21:08 -0700 Subject: [PATCH] Bug reported by Arthur: case-fold-string was dropping tail of string. --- src/runtime/rexp.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/runtime/rexp.scm b/src/runtime/rexp.scm index 07afb527d..cb6790233 100644 --- a/src/runtime/rexp.scm +++ b/src/runtime/rexp.scm @@ -224,10 +224,12 @@ USA. (string (char-upcase char)) (string (char-downcase char)) "]")) - (re-quote-string - (substring s start index)) + (re-quote-string (substring s start index)) parts)) - (apply string-append (reverse! parts))))))) + (apply string-append + (reverse! + (cons (re-quote-string (substring s start end)) + parts)))))))) (define (case-fold-char-set c) (let loop ((chars (char-set-members c)) (chars* '())) -- 2.25.1