From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 16 Oct 1993 06:33:09 +0000 (+0000)
Subject: Restrict result of PROMPT-FOR-COMMAND-CHAR to be a graphic character.
X-Git-Tag: 20090517-FFI~7746
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c8d3e8c000ddc41b4856b41c6616175e5bd22b43;p=mit-scheme.git

Restrict result of PROMPT-FOR-COMMAND-CHAR to be a graphic character.
---

diff --git a/v7/src/runtime/usrint.scm b/v7/src/runtime/usrint.scm
index e6740cd16..0545ec6f1 100644
--- a/v7/src/runtime/usrint.scm
+++ b/v7/src/runtime/usrint.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: usrint.scm,v 1.5 1993/10/15 10:26:42 cph Exp $
+$Id: usrint.scm,v 1.6 1993/10/16 06:33:09 cph Exp $
 
 Copyright (c) 1991-93 Massachusetts Institute of Technology
 
@@ -98,12 +98,12 @@ MIT in each case. |#
 	  (flush-output port)
 	  (let loop ()
 	    (let ((char (read-char port)))
-	      (if (eqv? #\newline char)
-		  (loop)
+	      (if (char-graphic? char)
 		  (begin
 		    (write-char char port)
 		    (flush-output port)
-		    char)))))))))
+		    char)
+		  (loop)))))))))
 
 (define (prompt-for-confirmation prompt #!optional port)
   (let ((port (if (default-object? port) (nearest-cmdl/port) port)))