Kludge: allow parser to recognize #!aux.

diff --git a/v7/src/runtime/parse.scm b/v7/src/runtime/parse.scm
index 90b37ab89ce9b17db92a5def11a46a021c3ab7ad..a5140cc104ca0cd4f4e9d157be79697250cf4d82 100644 (file)
--- 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)
 \f

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 8e985263927cb323f2c5486fc08b26b259c79c60..d20693846013ac068e8865de5e313c1dc8dbd367 100644 (file)
--- 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 943538cd62c61ae4ab6cd9e7b92c4a174293ef9c..9013267cce02578c77e8b1dffab58b85e078599e 100644 (file)
--- 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))
 \f
 (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 8e985263927cb323f2c5486fc08b26b259c79c60..d20693846013ac068e8865de5e313c1dc8dbd367 100644 (file)
--- 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)