From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 10 Jun 1999 16:27:56 +0000 (+0000)
Subject: Fix fencepost error in string-search-forward.
X-Git-Tag: 20090517-FFI~4524
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f703f7d42a61c676a63fc7d5a3084e210c4f4487;p=mit-scheme.git

Fix fencepost error in string-search-forward.
---

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)))))))