From 0167dfcb85365e464c3dbc11ada3e18a70503b75 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 9 Feb 1990 19:11:24 +0000 Subject: [PATCH] Define `symbol-hash-mod'. --- v7/src/runtime/runtime.pkg | 3 ++- v7/src/runtime/scode.scm | 7 +++++-- v8/src/runtime/runtime.pkg | 3 ++- 3 files changed, 9 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 608aab958..e1aa7c830 100644 --- 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 611939f71..b0e832404 100644 --- 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 43c07425f..2904c3180 100644 --- 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 -- 2.25.1