From 60749c4b5c6fe2d2ebb01e7c194ab3af89fda1d6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 Nov 2004 07:04:52 +0000
Subject: [PATCH] Print EOF object as #!EOF.

---
 v7/src/runtime/unpars.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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"))
-- 
2.25.1