From 73e64fc4b02630d474bc81c8f6c92531008ee435 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 17 Dec 1987 20:34:34 +0000
Subject: [PATCH] Define `string-hash-mod' in the global environment.

---
 v7/src/runtime/string.scm | 8 ++++----
 v7/src/sf/gconst.scm      | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/src/runtime/string.scm b/v7/src/runtime/string.scm
index b20ded9f3..c6074baaa 100644
--- a/v7/src/runtime/string.scm
+++ b/v7/src/runtime/string.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/string.scm,v 13.42 1987/07/28 01:22:23 cph Rel $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/string.scm,v 13.43 1987/12/17 20:32:25 cph Rel $
 ;;;
 ;;;	Copyright (c) 1987 Massachusetts Institute of Technology
 ;;;
@@ -60,7 +60,7 @@
    substring-find-previous-char-in-set
    substring-match-forward substring-match-backward
    substring-match-forward-ci substring-match-backward-ci
-   substring-upcase! substring-downcase! string-hash
+   substring-upcase! substring-downcase! string-hash string-hash-mod
 
    vector-8b-ref vector-8b-set! vector-8b-fill!
    vector-8b-find-next-char vector-8b-find-previous-char
@@ -214,7 +214,7 @@
 	(cons (string-ref string index)
 	      (loop (1+ index)))))
   (loop start))
-
+
 (define (string-copy string)
   (let ((size (string-length string)))
     (let ((result (string-allocate size)))
@@ -422,4 +422,4 @@
 	      (substring-move-right! string 0 n result 0)
 	      (begin (substring-fill! result 0 i char)
 		     (substring-move-right! string 0 length result i)))
-	  result))))
+	  result))))
\ No newline at end of file
diff --git a/v7/src/sf/gconst.scm b/v7/src/sf/gconst.scm
index bd57b2bd1..101b32824 100644
--- a/v7/src/sf/gconst.scm
+++ b/v7/src/sf/gconst.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/gconst.scm,v 3.3 1987/10/09 17:18:47 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/gconst.scm,v 3.4 1987/12/17 20:34:34 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -85,7 +85,7 @@ MIT in each case. |#
     SUBSTRING-FIND-PREVIOUS-CHAR-IN-SET
     SUBSTRING-MATCH-FORWARD SUBSTRING-MATCH-BACKWARD
     SUBSTRING-MATCH-FORWARD-CI SUBSTRING-MATCH-BACKWARD-CI
-    SUBSTRING-UPCASE! SUBSTRING-DOWNCASE! STRING-HASH
+    SUBSTRING-UPCASE! SUBSTRING-DOWNCASE! STRING-HASH STRING-HASH-MOD
 
     ;; Byte Vectors (actually, String/Character operations)
     VECTOR-8B-REF VECTOR-8B-SET! VECTOR-8B-FILL!
-- 
2.25.1