From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Jan 1999 04:01:08 +0000 (+0000)
Subject: Change to match new prompting code in Edwin 3.96.
X-Git-Tag: 20090517-FFI~4680
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=32cfaee690f76748262f6c808795dc8fdd67e3ec;p=mit-scheme.git

Change to match new prompting code in Edwin 3.96.
---

diff --git a/v7/src/6001/edextra.scm b/v7/src/6001/edextra.scm
index 0416d3e6c..8664c5a94 100644
--- a/v7/src/6001/edextra.scm
+++ b/v7/src/6001/edextra.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edextra.scm,v 1.27 1999/01/02 06:06:43 cph Exp $
+$Id: edextra.scm,v 1.28 1999/01/28 04:01:02 cph Exp $
 
 Copyright (c) 1992-1999 Massachusetts Institute of Technology
 
@@ -398,7 +398,7 @@ option the file from the problem set will not be installed.
 	 (let ((reply-to
 		(prompt-for-string "Please enter an email address for replies"
 				   default-reply-to
-				   'INSERTED-DEFAULT)))
+				   'DEFAULT-TYPE 'INSERTED-DEFAULT)))
 	   (if (not (string-null? reply-to))
 	       (begin
 		 (set! default-reply-to reply-to)
diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm
index 98f133504..f1363df43 100644
--- a/v7/src/6001/floppy.scm
+++ b/v7/src/6001/floppy.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: floppy.scm,v 1.24 1999/01/02 06:06:43 cph Exp $
+$Id: floppy.scm,v 1.25 1999/01/28 04:01:08 cph Exp $
 
 Copyright (c) 1992-1999 Massachusetts Institute of Technology
 
@@ -1011,9 +1011,8 @@ The following filenames are reserved and may not be used:
 
 (set! prompt-for-pathname*
       (let ((usual prompt-for-pathname*))
-	(lambda (prompt directory verify-final-value? require-match?)
-	  (let ((pathname
-		 (usual prompt directory verify-final-value? require-match?)))
+	(lambda args
+	  (let ((pathname (apply usual args)))
 	    (if (or (not (student-directory? pathname))
 		    (valid-dos-filename? (file-namestring pathname))
 		    (file-exists? pathname)
@@ -1038,8 +1037,7 @@ below.  Otherwise, answer \"no\" to use a different name.
 		       (append-string dos-filename-description)
 		       (prompt-for-yes-or-no? "Use this non-DOS name"))))
 		pathname
-		(prompt-for-pathname* prompt directory
-				      verify-final-value? require-match?))))))
+		(apply prompt-for-pathname* args))))))
 
 (define (student-directory? pathname)
   (let ((pathname (->pathname pathname))