From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 15 May 1991 01:11:28 +0000 (+0000)
Subject: Change prompt-for-pathname and friends to accept a filename as a
X-Git-Tag: 20090517-FFI~10587
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ccad799f0f8ed7e2bfff47c253a2428a46b34539;p=mit-scheme.git

Change prompt-for-pathname and friends to accept a filename as a
default.  Previously they required a pathname.
---

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