From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 2 Feb 1995 19:35:50 +0000 (+0000)
Subject: Tidied code.
X-Git-Tag: 20090517-FFI~6673
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=daff01cd86b850da4f05fe059a93b6b9c49823b2;p=mit-scheme.git

Tidied code.
---

diff --git a/v8/src/compiler/midend/applicat.scm b/v8/src/compiler/midend/applicat.scm
index b4c98f5d8..d89ac73e6 100644
--- a/v8/src/compiler/midend/applicat.scm
+++ b/v8/src/compiler/midend/applicat.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: applicat.scm,v 1.1 1994/11/19 02:04:29 adams Exp $
+$Id: applicat.scm,v 1.2 1995/02/02 19:35:50 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -43,13 +43,13 @@ MIT in each case. |#
 (define-macro (define-applicator keyword bindings . body)
   (let ((proc-name (symbol-append 'APPLICAT/ 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)
-	      (applicat/remember ,code
-			       form))))))))
+	(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)
+	       (APPLICAT/REMEMBER ,code
+				  FORM))))))))
 
 (define-applicator LOOKUP (env name)
   env					; ignored