From 3ad34702a5b3a744faf2e4f9323e5d3ea3fa64e3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 19 Nov 2004 18:15:01 +0000 Subject: [PATCH] Make #!aux self-evaluating. --- v7/src/runtime/parse.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.25.1