From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 7 Jun 1998 08:25:02 +0000 (+0000)
Subject: Fix quoting problem associated with #!aux parsing.
X-Git-Tag: 20090517-FFI~4787
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0de27f9e703e40e130e40732f944de1520aebeea;p=mit-scheme.git

Fix quoting problem associated with #!aux parsing.
---

diff --git a/v7/src/runtime/parse.scm b/v7/src/runtime/parse.scm
index 16861b394..ab1597886 100644
--- a/v7/src/runtime/parse.scm
+++ b/v7/src/runtime/parse.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: parse.scm,v 14.28 1997/08/08 21:29:38 cph Exp $
+$Id: parse.scm,v 14.29 1998/06/07 08:25:02 cph Exp $
 
-Copyright (c) 1988-97 Massachusetts Institute of Technology
+Copyright (c) 1988-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -62,7 +62,7 @@ MIT in each case. |#
 
   (set! lambda-optional-tag (object-new-type (microcode-type 'CONSTANT) 3))
   (set! lambda-rest-tag (object-new-type (microcode-type 'CONSTANT) 4))
-  (set! lambda-auxiliary-tag (intern "#!aux"))
+  (set! lambda-auxiliary-tag `',(intern "#!aux"))
   (set! dot-symbol (intern "."))
   (set! named-objects
 	`((NULL . ,(list))