From: Joe Marshall <eval.apply@gmail.com>
Date: Sun, 12 Feb 2012 01:23:35 +0000 (-0800)
Subject: Fix typo.
X-Git-Tag: release-9.2.0~305
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=777173dd2bd08c41d8f8fe1e863bee6dbb18e075;p=mit-scheme.git

Fix typo.
---

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)