From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Thu, 29 Aug 1991 01:50:36 +0000 (+0000)
Subject: Many improvements to the debugger, including cosmetic changes,
X-Git-Tag: 20090517-FFI~10261
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f9eb14e5ec4ec7e2852d4064687299834f090dd1;p=mit-scheme.git

Many improvements to the debugger, including cosmetic changes,
separation of reduction zero from the subproblem, addition of
RETURN-TO command, variables to choose window configuration and when
to automatically destroy the debugger buffer, and more-subproblems
notification on the modeline instead of in the buffer.

In addition, various bug fixes and more of Brian's RMAIL enhancements.
---

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 4f65a8ce9..3f2e669a9 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.56 1991/08/28 14:56:55 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.57 1991/08/29 01:48:39 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -677,7 +677,19 @@ MIT in each case. |#
   (files "debug")
   (parent (edwin))
   (export (edwin)
-	  debug-scheme-error)
+	  debug-scheme-error
+	  edwin-variable$debugger-split-window?
+	  edwin-variable$debugger-one-at-a-time?
+	  edwin-variable$debugger-start-on-error?
+	  edwin-variable$debugger-quit-on-return?
+	  edwin-variable$debugger-quit-on-restart?
+	  edwin-variable$debugger-open-markers?
+	  edwin-variable$debugger-verbose-mode?
+	  edwin-variable$debugger-expand-reductions?
+	  edwin-variable$debugger-max-subproblems
+	  edwin-variable$debugger-hide-system-code?
+	  edwin-variable$debugger-show-help-message?
+	  edwin-variable$debugger-debug-evaluations?)
   (import (runtime continuation-parser)
 	  stack-frame/reductions)
   (import (runtime debugger)
@@ -695,7 +707,8 @@ MIT in each case. |#
 	  command/print-expression
 	  command/print-reductions
 	  command/print-subproblem-or-reduction
-	  command/return
+	  command/return-from
+	  command/return-to
 	  command/show-all-frames
 	  command/show-current-frame
 	  command/summarize-subproblems
@@ -721,6 +734,7 @@ MIT in each case. |#
 	  set-dstate/environment-list!
 	  set-dstate/reduction-number!
 	  show-environment-name
+	  show-environment-bindings
 	  stack-frame/compiled-code?)
   (import (runtime debugger-utilities)
 	  hook/debugger-failure
@@ -879,6 +893,7 @@ MIT in each case. |#
 	  edwin-variable$mail-yank-ignored-headers
 	  edwin-variable$send-mail-procedure
 	  edwin-variable$sendmail-program
+	  edwin-variable$mail-header-function
 	  mail-position-on-field
 	  mail-position-on-cc-field
 	  make-mail-buffer))
diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index d36070aec..32a972af0 100644
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.56 1991/08/23 00:24:48 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.57 1991/08/29 01:50:36 arthur Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -37,4 +37,4 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (package/system-loader "edwin" '() 'QUERY)
-(add-system! (make-system "Edwin" 3 56 '()))
\ No newline at end of file
+(add-system! (make-system "Edwin" 3 57 '()))
\ No newline at end of file