From 14f847bb0f987089d8c5addfcac29382b0e90438 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 10 Aug 1995 19:21:58 +0000 Subject: [PATCH] Converted to new hash tables. --- v8/src/compiler/midend/cleanup.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/v8/src/compiler/midend/cleanup.scm b/v8/src/compiler/midend/cleanup.scm index 2dae08ea0..6221200d0 100644 --- a/v8/src/compiler/midend/cleanup.scm +++ b/v8/src/compiler/midend/cleanup.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: cleanup.scm,v 1.23 1995/08/06 22:26:35 adams Exp $ +$Id: cleanup.scm,v 1.24 1995/08/10 19:21:58 adams Exp $ Copyright (c) 1994-1995 Massachusetts Institute of Technology @@ -262,20 +262,21 @@ MIT in each case. |# `(CALL ,new-lambda ,closure))))) -(define *cleanup/rewriters* (make-eq-hash-table)) +(define *cleanup/rewriters* (make-monotonic-strong-eq-hash-table)) (define (cleanup/rewrite? name arity) - (cond ((hash-table/get *cleanup/rewriters* name #F) + (cond ((monotonic-strong-eq-hash-table/get *cleanup/rewriters* name #F) => (lambda (alist) (cond ((assq arity alist) => cdr) (else #F)))) (else #F))) (define (define-cleanup-rewrite name arity handler) - (let ((slot (hash-table/get *cleanup/rewriters* name '()))) - (hash-table/put! *cleanup/rewriters* - name - (cons (cons arity handler) slot))) + (let ((slot + (monotonic-strong-eq-hash-table/get *cleanup/rewriters* name '()))) + (monotonic-strong-eq-hash-table/put! *cleanup/rewriters* + name + (cons (cons arity handler) slot))) name) -- 2.25.1