From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 24 Oct 2005 05:35:26 +0000 (+0000)
Subject: Don't use pathname in printed representation of file port -- convert
X-Git-Tag: 20090517-FFI~1199
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=91825e3d91b7605c8d6f01fca3883dd893abb25e;p=mit-scheme.git

Don't use pathname in printed representation of file port -- convert
to namestring instead.
---

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