From ed24c8e168dee61612830287ae7b22a03a512da6 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 22 Oct 2014 16:01:30 -0700
Subject: [PATCH] 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(?).
---
src/edwin/debug.scm | 9 +++++++++
src/edwin/edwin.pkg | 9 ++-------
2 files changed, 11 insertions(+), 7 deletions(-)
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"))
--
2.25.1