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 e6740cd1692ae2f56b284890032b701d7b799a83..0545ec6f16e8877a63cbd8dcd516db2148b096e6 100644 (file)
--- 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)))