From ccad799f0f8ed7e2bfff47c253a2428a46b34539 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 May 1991 01:11:28 +0000
Subject: [PATCH] Change prompt-for-pathname and friends to accept a filename
as a default. Previously they required a pathname.
---
v7/src/edwin/filcom.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index a3077c9ee..d12b6faf9 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
;;; -*-Scheme-*-
;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.153 1991/05/14 02:27:13 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.154 1991/05/15 01:11:28 cph Exp $
;;;
;;; Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
;;;
@@ -567,7 +567,7 @@ If a file with the new name already exists, confirmation is requested first."
verify-final-value? require-match?)
(let ((directory
(if directory
- (pathname-directory-path directory)
+ (pathname-directory-path (->pathname directory))
(buffer-default-directory (current-buffer)))))
(prompt-string->pathname
(prompt-for-completed-string
--
2.25.1