From 91825e3d91b7605c8d6f01fca3883dd893abb25e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 24 Oct 2005 05:35:26 +0000
Subject: [PATCH] Don't use pathname in printed representation of file port --
 convert to namestring instead.

---
 v7/src/runtime/fileio.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/fileio.scm b/v7/src/runtime/fileio.scm
index 7b42cf2a5..d9aaf379b 100644
--- a/v7/src/runtime/fileio.scm
+++ b/v7/src/runtime/fileio.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: fileio.scm,v 1.24 2005/10/24 02:51:23 cph Exp $
+$Id: fileio.scm,v 1.25 2005/10/24 05:35:26 cph Exp $
 
 Copyright 1991,1993,1994,1995,1996,1999 Massachusetts Institute of Technology
 Copyright 2001,2004,2005 Massachusetts Institute of Technology
@@ -68,7 +68,7 @@ USA.
 
 (define (operation/write-self port output-port)
   (write-string " for file: " output-port)
-  (write (operation/truename port) output-port))
+  (write (->namestring (operation/truename port)) output-port))
 
 (define (open-input-file filename)
   (let* ((pathname (merge-pathnames filename))
-- 
2.25.1