From: Joe Bank <edu/mit/csail/zurich/jbank>
Date: Mon, 16 Aug 1993 19:00:03 +0000 (+0000)
Subject: Tweaked a typo.
X-Git-Tag: 20090517-FFI~8058
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fb4eae193697c8eb9e1a30105f59db70cc0016bd;p=mit-scheme.git

Tweaked a typo.
---

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 71e14bd0a..b6f11ec7e 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.11 1993/08/15 22:03:59 jbank Exp $
+;;;	$Id: debug.scm,v 1.12 1993/08/16 19:00:03 jbank Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -383,11 +383,11 @@
 				environment*
 				#f))
 			  #f)))
-    (temporary-message "Computing, please wait...")
     (if (and buffer (buffer-alive? buffer))
 	buffer
 	(let ((write-description
 	       (bline-type/write-description (bline/type bline))))
+	  (temporary-message "Computing, please wait...")
 	  (and write-description
 	       (let ((buffer (browser/new-buffer (bline/browser bline) false)))
 		 (call-with-output-mark (buffer-start buffer)
@@ -1729,9 +1729,9 @@ once it has been renamed, it will not be deleted automatically.")
 
 (define (environment/write-description bline port)
   (let ((environment (bline/object bline)))
-    (temporary-message "Computing environment bindings...")
+
     (show-environment-name-and-bindings environment port)
-    (append-message "done")))
+))
 
 (define (show-environment-name-and-bindings environment port)
   (show-environment-name environment port)