From 2a004d34cac96ac9f3f829743f8347ace6686fb2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 11 Nov 2003 01:46:43 +0000 Subject: [PATCH] Don't use pathname as prompt argument to command; instead coerce to namestring so that command history can be understood. --- v7/src/edwin/pwedit.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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" -- 2.25.1