summaryrefslogtreecommitdiff
path: root/geiser-guile.el
diff options
context:
space:
mode:
Diffstat (limited to 'geiser-guile.el')
-rw-r--r--geiser-guile.el13
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)