From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 25 Oct 2018 21:21:08 +0000 (-0700)
Subject: Bug reported by Arthur: case-fold-string was dropping tail of string.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~159
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=57217bc10ec35d5c785353b754afb05b57308600;p=mit-scheme.git

Bug reported by Arthur: case-fold-string was dropping tail of string.
---

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* '()))