From 777173dd2bd08c41d8f8fe1e863bee6dbb18e075 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sat, 11 Feb 2012 17:23:35 -0800 Subject: [PATCH] Fix typo. --- src/runtime/lambda.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/runtime/lambda.scm b/src/runtime/lambda.scm index 77da70ab4..e583d001d 100644 --- a/src/runtime/lambda.scm +++ b/src/runtime/lambda.scm @@ -411,7 +411,8 @@ USA. (make-lambda-list (subvector->list bound 1 (+ n-required 1)) (subvector->list bound (+ n-required 1) (+ n-optional n-required 1)) - (and rest? (vector-ref bound (+ n-optional n-required 1)))))))) + (and rest? (vector-ref bound (+ n-optional n-required 1))) + '()))))) (define (xlambda-name xlambda) (guarantee-xlambda xlambda 'xlambda-name) -- 2.25.1