From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 16 Oct 1993 07:41:27 +0000 (+0000)
Subject: Fix old typo.
X-Git-Tag: 20090517-FFI~7743
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c404c966606b72dd7f22e3a390c070600941dd78;p=mit-scheme.git

Fix old typo.
---

diff --git a/v7/src/edwin/artdebug.scm b/v7/src/edwin/artdebug.scm
index 1a70038a2..78e827218 100644
--- 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 b1c502bb4..5fb95cb17 100644
--- 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