From f703f7d42a61c676a63fc7d5a3084e210c4f4487 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 10 Jun 1999 16:27:56 +0000
Subject: [PATCH] Fix fencepost error in string-search-forward.

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

diff --git a/v7/src/runtime/string.scm b/v7/src/runtime/string.scm
index 6501663ab..bdb8f05d1 100644
--- a/v7/src/runtime/string.scm
+++ b/v7/src/runtime/string.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: string.scm,v 14.23 1999/05/08 02:31:50 cph Exp $
+$Id: string.scm,v 14.24 1999/06/10 16:27:56 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -676,7 +676,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	(let loop ((tstart tstart))
 	  (let ((tstart
 		 (let find-leader ((tstart tstart))
-		   (and (fix:< tstart tend)
+		   (and (fix:<= tstart tend)
 			(if (char=? leader (string-ref text tstart))
 			    tstart
 			    (find-leader (fix:+ tstart 1)))))))
-- 
2.25.1