From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Aug 1999 18:22:24 +0000 (+0000)
Subject: Change calls to PROMPT-FOR-PASSWORD to say "pass phrase" rather than
X-Git-Tag: 20090517-FFI~4494
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=026fc016f0380dab5af6d9a873877d26abb95826;p=mit-scheme.git

Change calls to PROMPT-FOR-PASSWORD to say "pass phrase" rather than
"password", to encourage use of longer phrases.
---

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index 0bb8a5e0f..1e00ca45d 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: prompt.scm,v 1.182 1999/01/31 04:01:19 cph Exp $
+;;; $Id: prompt.scm,v 1.183 1999/08/09 18:22:24 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -974,8 +974,8 @@ Whilst editing the command, the following commands are available:
 		 (loop (string-append ts (char->string input))))))))))
 
 (define (prompt-for-confirmed-password)
-  (let ((password1 (prompt-for-password "Password: ")))
-    (let ((password2 (prompt-for-password "Verify: ")))
+  (let ((password1 (prompt-for-password "Pass phrase")))
+    (let ((password2 (prompt-for-password "Verify")))
       (if (not (string=? password1 password2))
 	  (editor-error "Passwords do not match!"))
       password1)))
\ No newline at end of file