Converted to new hash tables.

diff --git a/v8/src/compiler/midend/cleanup.scm b/v8/src/compiler/midend/cleanup.scm
index 2dae08ea0f307af2d3a1431424af784315435b81..6221200d0d22aa9f6330767036926f7b1356ee4a 100644 (file)
--- 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)
 
 \f