From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 22 Mar 1994 21:31:09 +0000 (+0000)
Subject: Kludge: allow parser to recognize #!aux.
X-Git-Tag: 20090517-FFI~7219
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2270a3d549ce0579be8287a8281485a8808010f5;p=mit-scheme.git

Kludge: allow parser to recognize #!aux.
---

diff --git a/v7/src/runtime/parse.scm b/v7/src/runtime/parse.scm
index 90b37ab89..a5140cc10 100644
--- a/v7/src/runtime/parse.scm
+++ b/v7/src/runtime/parse.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: parse.scm,v 14.23 1993/12/17 01:37:13 cph Exp $
+$Id: parse.scm,v 14.24 1994/03/22 21:30:55 cph Exp $
 
-Copyright (c) 1988-1993 Massachusetts Institute of Technology
+Copyright (c) 1988-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -62,13 +62,15 @@ 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! dot-symbol (intern "."))
   (set! named-objects
 	`((NULL . ,(list))
 	  (FALSE . ,false)
 	  (TRUE . ,true)
 	  (OPTIONAL . ,lambda-optional-tag)
-	  (REST . ,lambda-rest-tag)))
+	  (REST . ,lambda-rest-tag)
+	  (AUX . ,lambda-aux-tag)))
 
   (set! *parser-radix* 10)
   (set! *parser-associate-positions?* false)
@@ -91,6 +93,7 @@ MIT in each case. |#
 
 (define lambda-optional-tag)
 (define lambda-rest-tag)
+(define lambda-auxiliary-tag)
 (define *parser-radix*)
 (define system-global-parser-table)
 
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 8e9852639..d20693846 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.223 1994/02/22 21:14:35 cph Exp $
+$Id: runtime.pkg,v 14.224 1994/03/22 21:31:09 cph Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -1468,7 +1468,8 @@ MIT in each case. |#
 	  lambda-optional-tag)
   (export (runtime unsyntaxer)
 	  lambda-optional-tag
-	  lambda-rest-tag)
+	  lambda-rest-tag
+	  lambda-aux-tag)
   (export (runtime parser-table)
 	  collect-list-wrapper)
   (initialization (initialize-package!)))
@@ -2497,6 +2498,8 @@ MIT in each case. |#
 	  unsyntax
 	  unsyntax-lambda-list
 	  unsyntax-with-substitutions)
+  (export (runtime parser)
+	  lambda-auxiliary-tag)
   (initialization (initialize-package!)))
 
 (define-package (runtime working-directory)
diff --git a/v7/src/runtime/unsyn.scm b/v7/src/runtime/unsyn.scm
index 943538cd6..9013267cc 100644
--- a/v7/src/runtime/unsyn.scm
+++ b/v7/src/runtime/unsyn.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: unsyn.scm,v 14.14 1994/01/29 21:23:20 adams Exp $
+$Id: unsyn.scm,v 14.15 1994/03/22 21:31:01 cph Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1988-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -38,7 +38,6 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (define (initialize-package!)
-  (set! lambda-auxiliary-tag (intern "#!aux"))
   (set! unsyntaxer/scode-walker
 	(make-scode-walker unsyntax-constant
 			   `((ACCESS ,unsyntax-ACCESS-object)
@@ -335,8 +334,6 @@ MIT in each case. |#
       name body
       (lambda-list required optional rest '()))))
 
-(define lambda-auxiliary-tag)
-
 (define (lambda-list required optional rest auxiliary)
   (let ((optional (if (null? optional)
 		      '()
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 8e9852639..d20693846 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.223 1994/02/22 21:14:35 cph Exp $
+$Id: runtime.pkg,v 14.224 1994/03/22 21:31:09 cph Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -1468,7 +1468,8 @@ MIT in each case. |#
 	  lambda-optional-tag)
   (export (runtime unsyntaxer)
 	  lambda-optional-tag
-	  lambda-rest-tag)
+	  lambda-rest-tag
+	  lambda-aux-tag)
   (export (runtime parser-table)
 	  collect-list-wrapper)
   (initialization (initialize-package!)))
@@ -2497,6 +2498,8 @@ MIT in each case. |#
 	  unsyntax
 	  unsyntax-lambda-list
 	  unsyntax-with-substitutions)
+  (export (runtime parser)
+	  lambda-auxiliary-tag)
   (initialization (initialize-package!)))
 
 (define-package (runtime working-directory)