From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 10 Apr 1995 16:48:34 +0000 (+0000)
Subject: Fix typos in previous change.
X-Git-Tag: 20090517-FFI~6477
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=63f6045bea6a5611dfac2109367e058ae62f119a;p=mit-scheme.git

Fix typos in previous change.
---

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index e52469a41..0b179e3a2 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: prompt.scm,v 1.163 1995/04/09 23:21:53 cph Exp $
+;;;	$Id: prompt.scm,v 1.164 1995/04/10 16:48:34 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -796,7 +796,7 @@ Whilst editing the command, the following commands are available:
 (define (prompt-for-password prompt)
   (prompt-for-typein (if (string-suffix? " " prompt)
 			 prompt
-			 (string-append ": " prompt))
+			 (string-append prompt ": "))
 		     #f
     (lambda ()
       (let loop ((ts ""))
@@ -807,8 +807,6 @@ Whilst editing the command, the following commands are available:
 		 (loop ts))
 		((char=? input #\Return)
 		 ts)
-		((or (char=? input #\C-g) (char=? input #\BEL))
-		 (abort-current-command))
 		((char=? input #\Rubout)
 		 (let ((ts-len (string-length ts)))
 		   (if (> ts-len 0)