From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Nov 2003 01:46:43 +0000 (+0000)
Subject: Don't use pathname as prompt argument to command; instead coerce to
X-Git-Tag: 20090517-FFI~1755
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2a004d34cac96ac9f3f829743f8347ace6686fb2;p=mit-scheme.git

Don't use pathname as prompt argument to command; instead coerce to
namestring so that command history can be understood.
---

diff --git a/v7/src/edwin/pwedit.scm b/v7/src/edwin/pwedit.scm
index 6ebd02a8d..6b1c3605d 100644
--- a/v7/src/edwin/pwedit.scm
+++ b/v7/src/edwin/pwedit.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: pwedit.scm,v 1.11 2003/02/14 18:28:13 cph Exp $
+$Id: pwedit.scm,v 1.12 2003/11/11 01:46:43 cph Exp $
 
-Copyright 1999-2000 Massachusetts Institute of Technology
+Copyright 1999,2000,2003 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -49,7 +49,7 @@ If password-file is #f, or if prefix arg supplied, prompts for a filename."
 	      (prompt-for-existing-file "View password file" default))))
        (cond ((not pathname) (prompt #f))
 	     ((command-argument) (prompt (list pathname)))
-	     (else pathname)))))
+	     (else (->namestring pathname))))))
   (lambda (pathname)
     (let ((forms
 	   (call-with-temporary-buffer " view-pw-file"