Fix old typo.

diff --git a/v7/src/edwin/artdebug.scm b/v7/src/edwin/artdebug.scm
index 1a70038a228e6fb58922dd602b3b624af610f3dc..78e827218c44d7421953f30946cadf5bcdbbd02b 100644 (file)
--- a/v7/src/edwin/artdebug.scm
+++ b/v7/src/edwin/artdebug.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: artdebug.scm,v 1.22 1993/08/22 17:20:39 gjr Exp $
+;;;    $Id: artdebug.scm,v 1.23 1993/10/16 07:41:27 cph Exp $
 ;;;
-;;;    Copyright (c) 1989-1992 Massachusetts Institute of Technology
+;;;    Copyright (c) 1989-93 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -1358,7 +1358,7 @@ Prefix argument means do not kill the debugger buffer."
 
 (define (operation/prompt-for-confirmation port prompt)
   port
-  (prompt-for-confirmation prompt))
+  (prompt-for-confirmation? prompt))
 
 (define interface-port-template
   (make-output-port

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index b1c502bb49f3942a817b9e53a082ff29b809264d..5fb95cb17fa7418d6cd3d9cfd225820fc606cc11 100644 (file)
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: debug.scm,v 1.20 1993/10/06 00:59:18 cph Exp $
+;;;    $Id: debug.scm,v 1.21 1993/10/16 07:40:55 cph Exp $
 ;;;
 ;;;    Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -1950,7 +1950,7 @@ once it has been renamed, it will not be deleted automatically.")
 
 (define (operation/prompt-for-confirmation port prompt)
   port
-  (prompt-for-confirmation prompt))
+  (prompt-for-confirmation? prompt))
 
 (define (operation/prompt-for-expression port prompt)
   port