Print EOF object as #!EOF.

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index ba3e4de6b91765974c3fe9f55293266598ac5123..0b52b5b7dcb8e4dce217a76b25bc41b1fdd6bbf4 100644 (file)
--- 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"))