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 4f65a8ce93db4b3e37d710ca7f4300d16844c227..3f2e669a91bccc45f026f379dcd507e884d6c84f 100644 (file)
--- 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 d36070aec3df24124c962f186e19cde4cec555e5..32a972af00a50248482e0b0f2bf223694a553312 100644 (file)
--- 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