From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 Nov 2004 07:04:52 +0000 (+0000)
Subject: Print EOF object as #!EOF.
X-Git-Tag: 20090517-FFI~1463
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=60749c4b5c6fe2d2ebb01e7c194ab3af89fda1d6;p=mit-scheme.git

Print EOF object as #!EOF.
---

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index ba3e4de6b..0b52b5b7d 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unpars.scm,v 14.59 2004/11/19 06:56:30 cph Exp $
+$Id: unpars.scm,v 14.60 2004/11/19 07:04:52 cph Exp $
 
 Copyright 1986,1987,1990,1991,1992,1995 Massachusetts Institute of Technology
 Copyright 1996,2001,2002,2003,2004 Massachusetts Institute of Technology
@@ -319,6 +319,7 @@ USA.
 	((undefined-value? object)
 	 (*unparse-string "#[unspecified-return-value]"))
 	((default-object? object) (*unparse-string "#!default"))
+	((eof-object? object) (*unparse-string "#!eof"))
 	((eq? object lambda-aux-tag) (*unparse-string "#!aux"))
 	((eq? object lambda-key-tag) (*unparse-string "#!key"))
 	((eq? object lambda-optional-tag) (*unparse-string "#!optional"))