From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 Nov 2004 18:15:01 +0000 (+0000)
Subject: Make #!aux self-evaluating.
X-Git-Tag: 20090517-FFI~1453
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3ad34702a5b3a744faf2e4f9323e5d3ea3fa64e3;p=mit-scheme.git

Make #!aux self-evaluating.
---

diff --git a/v7/src/runtime/parse.scm b/v7/src/runtime/parse.scm
index 13a041c69..cd89f56f9 100644
--- a/v7/src/runtime/parse.scm
+++ b/v7/src/runtime/parse.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: parse.scm,v 14.56 2004/11/19 07:14:37 cph Exp $
+$Id: parse.scm,v 14.57 2004/11/19 18:15:01 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,1993,1994,1997,1998,1999 Massachusetts Institute of Technology
@@ -494,7 +494,7 @@ USA.
 
 (define lambda-optional-tag (object-new-type (ucode-type constant) 3))
 (define lambda-rest-tag (object-new-type (ucode-type constant) 4))
-(define lambda-aux-tag '|#!aux|)
+(define lambda-aux-tag (object-new-type (ucode-type constant) 8))
 (define lambda-key-tag (object-new-type (ucode-type constant) 5))
 
 (define (handler:unhash port db ctx char1 char2)