Fix fencepost error in string-search-forward.

diff --git a/v7/src/runtime/string.scm b/v7/src/runtime/string.scm
index 6501663abd3044040590b6e4178340938ad13b5e..bdb8f05d152e6cfb5a9f14ba4977a7657a7b10f0 100644 (file)
--- 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)))))))