From 93395033dcfa5e1466c76055f5d83218d91a449f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 16 May 2018 22:37:24 -0700 Subject: [PATCH] Make sure that value of r4rs-lambda-list-arity is simplified. --- src/runtime/lambda-list.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.25.1