From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 11 May 1995 16:13:54 +0000 (+0000)
Subject: Tidying.
X-Git-Tag: 20090517-FFI~6318
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1392622be86e427798d87fefdfe1296b2cead43b;p=mit-scheme.git

Tidying.
---

diff --git a/v8/src/compiler/midend/envconv.scm b/v8/src/compiler/midend/envconv.scm
index ab27a3053..55ede7f17 100644
--- a/v8/src/compiler/midend/envconv.scm
+++ b/v8/src/compiler/midend/envconv.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: envconv.scm,v 1.8 1995/04/29 00:55:01 adams Exp $
+$Id: envconv.scm,v 1.9 1995/05/11 16:13:54 adams Exp $
 
 Copyright (c) 1994-1995 Massachusetts Institute of Technology
 
@@ -93,14 +93,14 @@ MIT in each case. |#
 (define-macro (define-environment-converter keyword bindings . body)
   (let ((proc-name (symbol-append 'ENVCONV/ keyword)))
     (call-with-values
-     (lambda () (%matchup (cdr bindings) '(handler env) '(cdr form)))
-     (lambda (names code)
-       `(define ,proc-name
-	  (let ((handler (lambda ,(cons (car bindings) names) ,@body)))
-	    (named-lambda (,proc-name env form)
-	      (envconv/remember ,code
-				form
-				(envconv/env/block env)))))))))
+	(lambda () (%matchup (cdr bindings) '(handler env) '(cdr form)))
+      (lambda (names code)
+	`(DEFINE ,proc-name
+	   (LET ((HANDLER (LAMBDA ,(cons (car bindings) names) ,@body)))
+	     (NAMED-LAMBDA (,proc-name ENV FORM)
+	       (ENVCONV/REMEMBER ,code
+				 FORM
+				 (ENVCONV/ENV/BLOCK ENV)))))))))
 
 
 ;;;; Environment-sensitive forms