Tidying.

diff --git a/v8/src/compiler/midend/earlyrew.scm b/v8/src/compiler/midend/earlyrew.scm
index e59585dec03a3eff3717ee873ec7f8e50ef88613..7e75c937fdd34bfc2a015bae94de1029f7b3d65e 100644 (file)
--- a/v8/src/compiler/midend/earlyrew.scm
+++ b/v8/src/compiler/midend/earlyrew.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: earlyrew.scm,v 1.2 1994/12/08 16:46:54 adams Exp $
+$Id: earlyrew.scm,v 1.3 1995/01/20 20:33:59 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -45,10 +45,10 @@ MIT in each case. |#
     (call-with-values
      (lambda () (%matchup bindings '(handler) '(cdr form)))
      (lambda (names code)
-       `(define ,proc-name
-         (let ((handler (lambda ,names ,@body)))
-           (named-lambda (,proc-name form)
-             (earlyrew/remember ,code form))))))))
+       `(DEFINE ,proc-name
+         (LET ((HANDLER (LAMBDA ,names ,@body)))
+           (NAMED-LAMBDA (,proc-name FORM)
+             (EARLYREW/REMEMBER ,code FORM))))))))
 
 (define-early-rewriter LOOKUP (name)
   `(LOOKUP ,name))
@@ -140,7 +140,7 @@ MIT in each case. |#
   (new-variable prefix))
 \f
 (define *early-rewritten-operators*
-  (make-eq-hash-table 311))
+  (make-eq-hash-table))
 
 (define-integrable (rewrite-operator/early? rator)
   (hash-table/get *early-rewritten-operators* rator false))