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

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

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