From 0129c21eee48280731cd48619d28e97322adf582 Mon Sep 17 00:00:00 2001 From: Stephen Adams <edu/mit/csail/zurich/adams> Date: Fri, 20 Jan 1995 20:33:59 +0000 Subject: [PATCH] Tidying. --- v8/src/compiler/midend/earlyrew.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/v8/src/compiler/midend/earlyrew.scm b/v8/src/compiler/midend/earlyrew.scm index e59585dec..7e75c937f 100644 --- 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)) (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)) -- 2.25.1