From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Jan 1999 06:14:03 +0000 (+0000)
Subject: Use new prompt history.
X-Git-Tag: 20090517-FFI~4670
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=886696a607033b95224b9bce61fa334569e3c300;p=mit-scheme.git

Use new prompt history.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index bf23bfbdb..e61566929 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: filcom.scm,v 1.199 1999/01/28 03:59:53 cph Exp $
+;;; $Id: filcom.scm,v 1.200 1999/01/28 06:14:03 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -680,8 +680,8 @@ Prefix arg means treat the plaintext file as binary data."
 (define (prompt-for-existing-file prompt default . options)
   (->namestring
    (prompt-for-pathname* prompt default file-non-directory?
-	  'REQUIRE-MATCH? #t
-	  options)))
+			 'REQUIRE-MATCH? #t
+			 options)))
 
 (define (file-non-directory? file)
   (and (file-exists? file)
@@ -742,6 +742,7 @@ Prefix arg means treat the plaintext file as binary data."
 	       verify-final-value
 	       (prompt-string->pathname string insertion directory)))
 	    'DEFAULT-TYPE 'INSERTED-DEFAULT
+	    'HISTORY 'PROMPT-FOR-PATHNAME
 	    options)
      insertion
      directory)))