From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 15 May 1999 19:01:15 +0000 (+0000)
Subject: Eliminate #!aux quoting problem.
X-Git-Tag: 20090517-FFI~4532
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f86ecd10c5a826386c37635ea657e757f27497b4;p=mit-scheme.git

Eliminate #!aux quoting problem.
---

diff --git a/v7/src/runtime/lambda.scm b/v7/src/runtime/lambda.scm
index b568229a3..791337634 100644
--- a/v7/src/runtime/lambda.scm
+++ b/v7/src/runtime/lambda.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lambda.scm,v 14.14 1999/01/02 06:11:34 cph Exp $
+$Id: lambda.scm,v 14.15 1999/05/15 19:01:15 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -383,7 +383,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 				  (if (pair? optional) '(#!optional) '()) 
 				  optional
 				  (if rest `(#!rest ,rest) '())
-				  (if (pair? auxiliary) `(#!aux) '())
+				  (if (pair? auxiliary) (list #!aux) '())
 				  auxiliary))))))))
 
   (let ((body* (if (null? declarations)