Make sure that value of r4rs-lambda-list-arity is simplified.

diff --git a/src/runtime/lambda-list.scm b/src/runtime/lambda-list.scm
index 0e75092381e566c4bf254a76e1868597d566a2e6..14b931a0cf9beb69d0a398036cc5d5cab53a44a6 100644 (file)
--- a/src/runtime/lambda-list.scm
+++ b/src/runtime/lambda-list.scm
@@ -66,7 +66,7 @@ USA.
                                (lambda (var)
                                  (cons 0 (if var #f 0)))
                                bvl)))
-    (make-procedure-arity (car arity) (cdr arity))))
+    (make-procedure-arity (car arity) (cdr arity) #t)))
 
 (define (map-r4rs-lambda-list procedure bvl)
   (let loop ((bvl* bvl))