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

diff --git a/src/sos/macros.scm b/src/sos/macros.scm
index 4cd2a578dcc692e5af3254727fef6b60bfd96bc3..3af6ce82eeaed7df9cbcdf672e93f1f52a48d067 100644 (file)
--- 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))
+
 \f
 (define (parse-specialized-lambda-list bvl)
   (letrec