From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 24 Mar 1994 18:29:08 +0000 (+0000)
Subject: Print #!aux as itself.
X-Git-Tag: 20090517-FFI~7211
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=07d30c7c67441f154c85804a6593e196e6037e0b;p=mit-scheme.git

Print #!aux as itself.
---

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index e0f969416..2975744a7 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: unpars.scm,v 14.33 1993/10/21 15:04:31 cph Exp $
+$Id: unpars.scm,v 14.34 1994/03/24 18:29:08 gjr Exp $
 
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -312,6 +312,7 @@ MIT in each case. |#
 	((null? object) (*unparse-string "()"))
 	((eq? object #t) (*unparse-string "#t"))
 	((undefined-value? object) (*unparse-string "#[undefined-value]"))
+	((eq? object lambda-auxiliary-tag) (*unparse-string "#!aux"))
 	((eq? object lambda-optional-tag) (*unparse-string "#!optional"))
 	((eq? object lambda-rest-tag) (*unparse-string "#!rest"))
 	(else (unparse/default object))))