From b486552b89c8989bed91ab462d7aee375f3b432b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 4 Dec 1992 03:17:47 +0000
Subject: [PATCH] Undo last change: a substring cannot be upper or lower case
 unless there is at least one character of that case in it.  Rewrite
 SUBSTRING-CAPITALIZED? to fix the bug properly.

---
 v7/src/runtime/string.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/runtime/string.scm b/v7/src/runtime/string.scm
index 134975da2..6f4dbc42d 100644
--- a/v7/src/runtime/string.scm
+++ b/v7/src/runtime/string.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: string.scm,v 14.7 1992/12/04 03:04:54 cph Exp $
+$Id: string.scm,v 14.8 1992/12/04 03:17:47 cph Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -328,8 +328,8 @@ MIT in each case. |#
   ;; useful if the substring happens to be a sentence.  Again, if you
   ;; need finer control, parse the words yourself.
   (let ((index
-	 (substring-find-first-char-in-set string start end
-					   char-set:alphabetic)))
+	 (substring-find-next-char-in-set string start end
+					  char-set:alphabetic)))
     (if index
 	(begin
 	  (substring-upcase! string index (fix:+ index 1))
-- 
2.25.1