From e4653f27a2e151c91e8000c1ddb709164bb1eb7f Mon Sep 17 00:00:00 2001
From: Joe Marshall <eval.apply@gmail.com>
Date: Wed, 8 Feb 2012 20:39:26 -0800
Subject: [PATCH] Use lambda-components* and lambda-bound rather than
lambda-components.
---
src/runtime/xeval.scm | 13 +++++--------
1 file changed, 5 insertions(+), 8 deletions(-)
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
--
2.25.1