From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 16 May 1995 02:43:14 +0000 (+0000)
Subject: Tidying.
X-Git-Tag: 20090517-FFI~6311
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0fcb097fea4a85e26851fa7b125ec8c7b55011d7;p=mit-scheme.git

Tidying.
---

diff --git a/v8/src/compiler/midend/earlyrew.scm b/v8/src/compiler/midend/earlyrew.scm
index c0ed1c9ad..5f95c364a 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.8 1995/04/29 00:55:26 adams Exp $
+$Id: earlyrew.scm,v 1.9 1995/05/16 02:43:14 adams Exp $
 
 Copyright (c) 1994-1995 Massachusetts Institute of Technology
 
@@ -48,12 +48,12 @@ MIT in each case. |#
 (define-macro (define-early-rewriter keyword bindings . body)
   (let ((proc-name (symbol-append 'EARLYREW/ keyword)))
     (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))))))))
+	(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-early-rewriter LOOKUP (name)
   `(LOOKUP ,name))
@@ -109,27 +109,15 @@ MIT in each case. |#
   (if (not (pair? expr))
       (illegal expr))
   (case (car expr)
-    ((QUOTE)
-     (earlyrew/quote expr))
-    ((LOOKUP)
-     (earlyrew/lookup expr))
-    ((LAMBDA)
-     (earlyrew/lambda expr))
-    ((LET)
-     (earlyrew/let expr))
-    ((DECLARE)
-     (earlyrew/declare expr))
-    ((CALL)
-     (earlyrew/call expr))
-    ((BEGIN)
-     (earlyrew/begin expr))
-    ((IF)
-     (earlyrew/if expr))
-    ((LETREC)
-     (earlyrew/letrec expr))
-    ((SET! UNASSIGNED? OR DELAY
-      ACCESS DEFINE IN-PACKAGE THE-ENVIRONMENT)
-     (no-longer-legal expr))
+    ((QUOTE)    (earlyrew/quote expr))
+    ((LOOKUP)   (earlyrew/lookup expr))
+    ((LAMBDA)   (earlyrew/lambda expr))
+    ((LET)      (earlyrew/let expr))
+    ((DECLARE)  (earlyrew/declare expr))
+    ((CALL)     (earlyrew/call expr))
+    ((BEGIN)    (earlyrew/begin expr))
+    ((IF)       (earlyrew/if expr))
+    ((LETREC)   (earlyrew/letrec expr))
     (else
      (illegal expr))))