[Guile-commits] 40/58: GDB support: Add 'guile-backtrace' command.

[Andy Wingo]

wingo pushed a commit to branch lightning
in repository guile.

commit 6a95c8e77a17d6828a48dcc84500241f48f8284b
Author: Ludovic Courtès <address@hidden>
Date:   Sun Jun 24 23:40:08 2018 +0200

    GDB support: Add 'guile-backtrace' command.
    
    * libguile/libguile-2.2-gdb.scm <top level>: Add 'register-command!' call.
---
 libguile/libguile-2.2-gdb.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/libguile/libguile-2.2-gdb.scm b/libguile/libguile-2.2-gdb.scm
index 5ef52ec..e0b573a 100644
--- a/libguile/libguile-2.2-gdb.scm
+++ b/libguile/libguile-2.2-gdb.scm
@@ -339,6 +339,14 @@ if the information is not available."
                      (dump-vm-frame frame port))
                    (vm-frames)))
 
+(register-command!
+ (make-command "guile-backtrace"
+               #:command-class COMMAND_STACK
+               #:doc "Display a backtrace of Guile's VM stack for the \
+current thread"
+               #:invoke (lambda (self args from-tty)
+                          (display-vm-frames))))
+
 
 ;;;
 ;;; Frame filters.