From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 17 May 2018 05:37:24 +0000 (-0700)
Subject: Make sure that value of r4rs-lambda-list-arity is simplified.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~34
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=93395033dcfa5e1466c76055f5d83218d91a449f;p=mit-scheme.git

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 0e7509238..14b931a0c 100644
--- 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))