Define `symbol-hash-mod'.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 608aab958d7b1fb968f2ccdb7f0930c8a30bb8e3..e1aa7c830993611ac882b2d7a45022c41ac52f7a 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.59 1990/02/08 00:36:31 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.60 1990/02/09 19:11:24 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -1451,6 +1451,7 @@ MIT in each case. |#
          symbol->string
          symbol-append
          symbol-hash
+         symbol-hash-mod
          symbol?
          the-environment?
          variable-components

diff --git a/v7/src/runtime/scode.scm b/v7/src/runtime/scode.scm
index 611939f7115d78fdc90002dc42c916cead608520..b0e8324045ad17002d7ecc6f3f57b5b2f1ca8e68 100644 (file)
--- a/v7/src/runtime/scode.scm
+++ b/v7/src/runtime/scode.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scode.scm,v 14.8 1990/01/10 14:19:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/scode.scm,v 14.9 1990/02/09 19:10:58 cph Exp $
 
-Copyright (c) 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -131,6 +131,9 @@ MIT in each case. |#
 (define-integrable (symbol-hash symbol)
   (string-hash (symbol-name symbol)))
 
+(define-integrable (symbol-hash-mod symbol modulus)
+  (string-hash-mod (symbol-name symbol) modulus))
+
 ;;;; Variable
 
 (define-integrable (make-variable name)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 43c07425fef3f596294b1caa97644e3cb5bdcd60..2904c31807b9904125c1fd0f59cce0995630acc3 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.59 1990/02/08 00:36:31 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.60 1990/02/09 19:11:24 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -1451,6 +1451,7 @@ MIT in each case. |#
          symbol->string
          symbol-append
          symbol-hash
+         symbol-hash-mod
          symbol?
          the-environment?
          variable-components