From 17389af50b5ee853f9a4c42080d56e370ec44ad2 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Wed, 8 Feb 2012 20:07:24 -0800 Subject: [PATCH] Use lambda-bound and lambda-body rather than lambda-components. --- src/sos/macros.scm | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/src/sos/macros.scm b/src/sos/macros.scm index 4cd2a578d..3af6ce82e 100644 --- a/src/sos/macros.scm +++ b/src/sos/macros.scm @@ -492,14 +492,8 @@ USA. (do-expr name (definition-value expr))))) (LAMBDA ,(lambda (name expr) - (lambda-components expr - (lambda (lname required optional rest auxiliary decls body) - lname decls - (and (not (or (memq name required) - (memq name optional) - (eq? name rest) - (memq name auxiliary))) - (do-expr name body)))))) + (and (not (memq name (lambda-bound expr))) + (do-expr name (lambda-body expr))))) (SEQUENCE ,(lambda (name expr) (do-exprs name (sequence-actions expr)))) @@ -508,6 +502,7 @@ USA. (eq? name (variable-name expr))))))) (illegal (lambda (expr) (error "Illegal expression:" expr)))) do-expr)) + (define (parse-specialized-lambda-list bvl) (letrec -- 2.25.1