Fix bug in `y-or-n?'.

diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index d09ead7a70ec998f19fd0cf9a28345457215d5f5..ff222f24b26b6eff898c635028216b6f522b9889 100644 (file)
--- a/v7/src/edwin/utils.scm
+++ b/v7/src/edwin/utils.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/utils.scm,v 1.12 1989/04/15 00:53:57 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/utils.scm,v 1.13 1989/04/23 23:28:48 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -123,7 +123,8 @@
             (write-string "No")
             false)
            (else
-            (editor-beep)
+            (if (not (char=? char #\newline))
+                (beep))
             (loop)))))
   (newline)
   (for-each write-string strings)