Avoid creating extended-lambdas just because of aux vars.

diff --git a/src/runtime/lambda.scm b/src/runtime/lambda.scm
index e583d001deba683a35579b89f6ce63c39e48ee36..551957a73e235e0b56318c8295d490902319f726 100644 (file)
--- 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))