[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile 1803cbd 3/3: Support for full backtraces
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/geiser-guile 1803cbd 3/3: Support for full backtraces |
Date: |
Tue, 21 Dec 2021 21:57:56 -0500 (EST) |
branch: elpa/geiser-guile
commit 1803cbde00abd3af47f0bc8630e53d24c704e8be
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>
Support for full backtraces
---
geiser-guile.el | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
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)