From: u6001 <u6001>
Date: Mon, 1 Jun 1992 16:50:47 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~9307
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e8e17a02755bbd3a91845e9b999c4341df9e73b7;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/edwin/artdebug.scm b/v7/src/edwin/artdebug.scm
index 068cc9878..6bc612878 100644
--- a/v7/src/edwin/artdebug.scm
+++ b/v7/src/edwin/artdebug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/artdebug.scm,v 1.17 1992/02/04 04:02:16 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/artdebug.scm,v 1.18 1992/06/01 16:50:47 u6001 Exp $
 ;;;
 ;;;	Copyright (c) 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -1149,11 +1149,13 @@ Prefix argument means do not kill the debugger buffer."
 	   (and (not (null? windows))
 		(apply min (map window-x-size windows)))))))
 
-(define (operation/debugger-failure string)
+(define (operation/debugger-failure port string)
+  port
   (message string)
   (editor-beep))
 
-(define (operation/debugger-message string)
+(define (operation/debugger-message port string)
+  port
   (message string))
 
 (define (debugger-presentation port thunk)