From: Joe Marshall <eval.apply@gmail.com>
Date: Sun, 12 Feb 2012 01:41:01 +0000 (-0800)
Subject: Avoid creating extended-lambdas just because of aux vars.
X-Git-Tag: release-9.2.0~304
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2e247e6fd62327574c97c4e0dbf1e8117e17ab93;p=mit-scheme.git

Avoid creating extended-lambdas just because of aux vars.
---

diff --git a/src/runtime/lambda.scm b/src/runtime/lambda.scm
index e583d001d..551957a73 100644
--- a/src/runtime/lambda.scm
+++ b/src/runtime/lambda.scm
@@ -487,8 +487,7 @@ USA.
     (cond ((and (< (length required) 256)
 		(< (length optional) 256)
 		(or (not (null? optional))
-		    rest
-		    (not (null? auxiliary))))
+		    rest))
 	   (make-xlambda name required optional rest auxiliary body*))
 	  ((not (null? optional))
 	   (error "Optionals not implemented" 'MAKE-LAMBDA))