From e4653f27a2e151c91e8000c1ddb709164bb1eb7f Mon Sep 17 00:00:00 2001 From: Joe Marshall 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