From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 1 Nov 1994 23:12:09 +0000 (+0000)
Subject: Added a message to INFERIOR-REPL-DEBUG as this may take a long time
X-Git-Tag: 20090517-FFI~7041
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=964aba3053bf7be254eacc4d74088f4026abfabb;p=mit-scheme.git

Added a message to INFERIOR-REPL-DEBUG as this may take a long time
when initially started.
---

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 107ec7e35..b9467684b 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: intmod.scm,v 1.84 1994/09/16 00:30:05 cph Exp $
+;;;	$Id: intmod.scm,v 1.85 1994/11/01 23:12:09 adams Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -473,6 +473,7 @@ Additionally, these commands abort the command loop:
 If this is an error, the debugger examines the error condition."
   ()
   (lambda ()
+    (temporary-message "Starting continuation browser...")
     (let ((port (buffer-interface-port (current-buffer))))
       (start-continuation-browser
        port