Change #!aux to be an interned symbol.
authorChris Hanson <org/chris-hanson/cph>
Fri, 14 May 1999 22:15:47 +0000 (22:15 +0000)
committerChris Hanson <org/chris-hanson/cph>
Fri, 14 May 1999 22:15:47 +0000 (22:15 +0000)
v7/src/runtime/parse.scm

index 8252a6dbf944022f403e256dcea0894ca7626fa3..9e8501077ea47d6462f6e929f755280d8bf7bea9 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: parse.scm,v 14.31 1999/03/15 03:28:25 cph Exp $
+$Id: parse.scm,v 14.32 1999/05/14 22:15:47 cph Exp $
 
 Copyright (c) 1988-1999 Massachusetts Institute of Technology
 
@@ -49,7 +49,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
   (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))