Define `string-hash-mod' in the global environment.

diff --git a/v7/src/runtime/string.scm b/v7/src/runtime/string.scm
index b20ded9f387b4dc8a5cf943b12a821656e217150..c6074baaabb76025373bb9b289aa8a74da7be7c2 100644 (file)
--- 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))
-
+\f
 (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 bd57b2bd1ee134ea57d2174fc18db8bf7e970915..101b328242f3c2f74086fb002b3565a5073fc4e1 100644 (file)
--- 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!