From a1d059df755d757c3d976479f3506433070b3c57 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 May 1999 21:08:32 +0000
Subject: [PATCH] Implement Boyer-Moore string search.  Also add procedures to
 reverse string contents.

---
 v7/src/runtime/runtime.pkg | 10 +++++++++-
 v8/src/runtime/runtime.pkg | 10 +++++++++-
 2 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index a1117c6ab..3c5257aa2 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.324 1999/04/08 05:01:04 cph Exp $
+$Id: runtime.pkg,v 14.325 1999/05/07 21:08:32 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -82,6 +82,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  list->string
 	  guarantee-string
 	  make-string
+	  reverse-string
+	  reverse-string!
+	  reverse-substring
+	  reverse-substring!
 	  set-string-length!
 	  string
 	  string->list
@@ -125,6 +129,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  string-ref
 	  string-replace
 	  string-replace!
+	  string-search-backward
+	  string-search-forward
 	  string-set!
 	  string-suffix-ci?
 	  string-suffix?
@@ -166,6 +172,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  substring-prefix?
 	  substring-replace
 	  substring-replace!
+	  substring-search-backward
+	  substring-search-forward
 	  substring-suffix-ci?
 	  substring-suffix?
 	  substring-upcase!
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 19929eeac..948107373 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.329 1999/04/08 05:01:33 cph Exp $
+$Id: runtime.pkg,v 14.330 1999/05/07 21:08:27 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -82,6 +82,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  list->string
 	  guarantee-string
 	  make-string
+	  reverse-string
+	  reverse-string!
+	  reverse-substring
+	  reverse-substring!
 	  set-string-length!
 	  string
 	  string->list
@@ -125,6 +129,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  string-ref
 	  string-replace
 	  string-replace!
+	  string-search-backward
+	  string-search-forward
 	  string-set!
 	  string-suffix-ci?
 	  string-suffix?
@@ -166,6 +172,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 	  substring-prefix?
 	  substring-replace
 	  substring-replace!
+	  substring-search-backward
+	  substring-search-forward
 	  substring-suffix-ci?
 	  substring-suffix?
 	  substring-upcase!
-- 
2.25.1