Add Debug button to #lang htdp/asl.

Fixes #177.
racket · Dec 7, 2024 · c29a0b0 · c29a0b0
1 parent aef9ae1
commit c29a0b0
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/htdp-lib/htdp/asl/lang/reader.rkt b/htdp-lib/htdp/asl/lang/reader.rkt
@@ -3,4 +3,5 @@ lang/htdp-advanced
 '(abbreviate-cons-as-list
   read-accept-quasiquote
   show-sharing
-  disable-stepper)
+  disable-stepper
+  enable-debugger)
diff --git a/htdp-lib/htdp/bsl/reader.rkt b/htdp-lib/htdp/bsl/reader.rkt
@@ -26,15 +26,19 @@
 (define ((make-info options) key default use-default)
   (case key
     [(drscheme:toolbar-buttons)
+     ;; if you want to add more buttons, the strategy used here might not
+     ;; be the right one to use. If you can simply enable existing buttons,
+     ;; do that instead.
      (append (if (memq 'disable-stepper options)
                  '()
                  (list ((dynamic-require 'lang/private/sl-stepper-button 'sl-stepper-drracket-button) options)))
              (list (dynamic-require 'drracket/syncheck-drracket-button 'syncheck-drracket-button)))]
 
     [(drscheme:opt-out-toolbar-buttons)
-     ;; opt-out of all of the extra buttons b/c 
-     ;; we don't want anything to confuse in the teaching languages.
-     #f]
+     (append (if (memq 'enable-debugger options)
+                 '()
+                 '(debug-tool))
+             '(macro-stepper drracket:syncheck))]
 
     [(drracket:show-big-defs/ints-labels) #t]