From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 May 1999 21:13:43 +0000 (+0000)
Subject: Implement Boyer-Moore string search.  Also add procedures to reverse
X-Git-Tag: 20090517-FFI~4551
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=855fd6eb21951d195cde7296be2dedd60ef73f23;p=mit-scheme.git

Implement Boyer-Moore string search.  Also add procedures to reverse
string contents.
---

diff --git a/v7/src/runtime/dosdir.scm b/v7/src/runtime/dosdir.scm
index 2264f8d7f..9cdeee5d6 100644
--- a/v7/src/runtime/dosdir.scm
+++ b/v7/src/runtime/dosdir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dosdir.scm,v 1.7 1999/01/02 06:11:34 cph Exp $
+$Id: dosdir.scm,v 1.8 1999/05/07 21:13:43 cph Exp $
 
 Copyright (c) 1992, 1999 Massachusetts Institute of Technology
 
@@ -19,7 +19,7 @@ along with this program; if not, write to the Free Software
 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 |#
 
-;;;; Directory Operations -- DOS (copy of unxdir version 14.9)
+;;;; DOS Directory Reader
 ;;; package: (runtime directory)
 
 (declare (usual-integrations))
@@ -264,7 +264,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 		   (let ((next (segment-matcher rest))
 			 (len (string-length segment)))
 		     (lambda (instance)
-		       (let ((posn (substring? segment instance)))
+		       (let ((posn (string-search-forward instance segment)))
 			 (and posn
 			      (next
 			       (substring instance (+ posn len)