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)