From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 22 Oct 2014 23:01:30 +0000 (-0700)
Subject: Add bindings to edwin/debug.scm; punt browser-evaluator.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~122
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ed24c8e168dee61612830287ae7b22a03a512da6;p=mit-scheme.git

Add bindings to edwin/debug.scm; punt browser-evaluator.

Add ansi.scm to (edwin screen console-screen) for unix as well as
dos and nt.  This quiets cref's complaint about termcap.scm's
reference to make-ansi-terminal-description.

The browser-evaluator command was never implemented(?).
---

diff --git a/src/edwin/debug.scm b/src/edwin/debug.scm
index 2f049e345..393821a69 100644
--- a/src/edwin/debug.scm
+++ b/src/edwin/debug.scm
@@ -870,6 +870,15 @@ to get more information in a short window, for example, when using
 a fixed size terminal."
   #F
   boolean?)
+
+;;; These bindings are included only because they are exported by the
+;;; alternate debugger, artdebug, which also lives in this package.
+;;; They appear to CREF to be needed yet not bound.
+
+(define edwin-variable$debugger-expand-reductions?)
+(define edwin-variable$debugger-open-markers?)
+(define edwin-variable$debugger-split-window?)
+(define edwin-variable$debugger-verbose-mode?)
 
 ;;;; Predicates
 
diff --git a/src/edwin/edwin.pkg b/src/edwin/edwin.pkg
index 63eab5efd..21e5d3e0c 100644
--- a/src/edwin/edwin.pkg
+++ b/src/edwin/edwin.pkg
@@ -809,10 +809,6 @@ USA.
 	  edwin-variable$list-matching-lines-default-context-lines
 	  pop-up-occur-buffer))
 
-;; This package is set up to handle two versions of the debugger.
-;; Therefore, please don't remove variables just because they aren't
-;; referenced by the standard debugger. -- Arthur
-
 (define-package (edwin debugger)
   (files "debug")
   (parent (edwin))
@@ -820,7 +816,6 @@ USA.
 	  debug-scheme-error
 	  edwin-command$browse-continuation
 	  edwin-command$browse-environment
-	  edwin-command$browser-evaluator
 	  edwin-command$browser-next-line
 	  edwin-command$browser-previous-line
 	  edwin-command$browser-quit
@@ -983,7 +978,7 @@ USA.
 (os-type-case
  ((unix dos nt)
   (define-package (edwin screen console-screen)
-    (files "termcap" "tterm")
+    (files "ansi" "termcap" "tterm")
     (parent (edwin screen))
     (export (edwin)
 	    resize-screen)
@@ -1135,7 +1130,7 @@ USA.
 	    edwin-command$dired-hidden-toggle))
 
   (extend-package (edwin screen console-screen)
-    (files "ansi" "bios"))
+    (files "bios"))
 
   (extend-package (edwin process)
     (files "process"))