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 0416d3e6ce52d9d8d7e714ffb227b5f916305d09..8664c5a942bda8653c217b5252ae61f15abbec1c 100644 (file)
--- 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 98f133504d332ca7d292c242b3eaee52ac4d4362..f1363df435e46c08790bd769500af456e803bca7 100644 (file)
--- 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:
 \f
 (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))