From 441891f376221d7bcd1f6fc8927595fe25417255 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 29 Dec 2009 21:26:48 +0100
Subject: [PATCH] cleanups to debugger

* module/system/vm/debug.scm (debugger-repl): Remove the `bindings'
  command, it is superseded by `locals'.
  Update the TODO.
  (debug-pre-unwind-handler): Remove scary "beta" warning. Already being
  able to bt #:width 1000 #:full? #t is quite useful...
---
 module/system/vm/debug.scm | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/module/system/vm/debug.scm b/module/system/vm/debug.scm
index c2175c5cc..e9f30f55b 100644
--- a/module/system/vm/debug.scm
+++ b/module/system/vm/debug.scm
@@ -263,10 +263,6 @@ With an argument, select a frame by index, then show it."
             (format #t "No such frame.~%"))))
          (else (show-frame))))
 
-      (define-command ((commands bindings))
-        "Show some information about locally-bound variables in the selected frame."
-         (format #t "~a\n" (frame-bindings cur)))
-      
       (define-command ((commands locals))
         "Show locally-bound variables in the selected frame."
         (print-locals cur))
@@ -345,12 +341,10 @@ With an argument, select a frame by index, then show it."
           (apply values args))))))
 
 
-;; things this debugger should do:
+;; TODO:
 ;;
 ;; eval expression in context of frame
 ;; set local variable in frame
-;; display backtrace
-;; display full backtrace
 ;; step until next instruction
 ;; step until next function call/return
 ;; step until return from frame
@@ -363,7 +357,6 @@ With an argument, select a frame by index, then show it."
 ;; display a truncated backtrace
 ;; go to a frame by index
 ;; (reuse gdb commands perhaps)
-;; help
 ;; disassemble a function
 ;; disassemble the current function
 ;; inspect any object
@@ -374,8 +367,7 @@ With an argument, select a frame by index, then show it."
   ;; herald
   (format #t "Throw to key `~a' with args `~s'.
 Entering the debugger. Type `bt' for a backtrace or `c' to continue.
-This debugger implementation is temporary. See system/vm/debug.scm for
-some ideas on how to make it better.\n" key args)
+" key args)
   (run-debugger (stack-ref (make-stack #t) 1))
   (save-stack 1)
   (apply throw key args))