Support for full backtraces

1 files changed, 12 insertions, 1 deletions

diff --git a/geiser-guile.el b/geiser-guile.el
index 5069f92..f2d6f2a 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -83,6 +83,10 @@ exported modules."
 If nil, only the last frame is shown."
   :type 'boolean)
 
+(geiser-custom--defcustom geiser-guile-debug-show-full-bt-p t
+  "Whether to show full backtraces in the debugger, including local variables."
+  :type 'boolean)
+
 (geiser-custom--defcustom geiser-guile-show-debug-help-p t
   "Whether to show brief help in the echo area when entering the debugger."
   :type 'boolean)
@@ -179,6 +183,13 @@ This function uses `geiser-guile-init-file' if it exists."
   "Concatenate the list ARGS."
   (mapconcat 'identity args " "))
 
+(defun geiser-guile--debug-cmd (args)
+  (let ((args (if (and geiser-guile-debug-show-full-bt-p
+                       (string= (car args) "backtrace"))
+                  '("backtrace" "#:full?" "#t")
+                args)))
+    (concat "," (geiser-guile--linearize-args args) "\n\"\"")))
+
 (defun geiser-guile--geiser-procedure (proc &rest args)
   "Transform PROC in string for a scheme procedure using ARGS."
   (cl-case proc
@@ -188,7 +199,7 @@ This function uses `geiser-guile-init-file' if it exists."
                             (if (cddr args) "" " ()")))
     ((load-file compile-file) (format ",geiser-load-file %s" (car args)))
     ((no-values) ",geiser-no-values")
-    ((debug) (concat "," (geiser-guile--linearize-args args) "\n\"\""))
+    ((debug) (geiser-guile--debug-cmd args))
     (t (format "ge:%s (%s)" proc (geiser-guile--linearize-args args)))))
 
 (defun geiser-guile--clean-up-output (str)