From: Joe Marshall <eval.apply@gmail.com>
Date: Thu, 9 Feb 2012 04:39:26 +0000 (-0800)
Subject: Use lambda-components* and lambda-bound rather than lambda-components.
X-Git-Tag: release-9.2.0~310
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e4653f27a2e151c91e8000c1ddb709164bb1eb7f;p=mit-scheme.git

Use lambda-components* and lambda-bound rather than lambda-components.
---

diff --git a/src/runtime/xeval.scm b/src/runtime/xeval.scm
index a9e664cb4..4fe2ae9ed 100644
--- a/src/runtime/xeval.scm
+++ b/src/runtime/xeval.scm
@@ -149,17 +149,14 @@ USA.
 	(make-assignment name value))))
 
 (define (rewrite/lambda expression environment bound-names)
-  (lambda-components expression
-    (lambda (name required optional rest auxiliary declarations body)
-      (make-lambda
-       name required optional rest auxiliary declarations
+  (lambda-components* expression
+    (lambda (name required optional rest body)
+      (make-lambda*
+       name required optional rest
        (rewrite/expression body
 			   environment
 			   (difference bound-names
-				       (append required
-					       optional
-					       auxiliary
-					       (if rest (list rest) '()))))))))
+				       (lambda-bound expression)))))))
 
 (define (rewrite/the-environment expression environment bound-names)
   expression environment bound-names