summaryrefslogtreecommitdiff
path: root/elisp/geiser-debug.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-10-09 03:57:46 +0100
committerjao <jao@gnu.org>2022-10-09 03:57:46 +0100
commit9a3df3a9aa365f64cb9c228dbd856b02afe346ec (patch)
tree7651715822852dd7016f0ce585144c2142afb2a3 /elisp/geiser-debug.el
parente63c33d2afb1ba8e732511e34c6a2db7a3a0898c (diff)
downloadgeiser-9a3df3a9aa365f64cb9c228dbd856b02afe346ec.tar.gz
geiser-9a3df3a9aa365f64cb9c228dbd856b02afe346ec.tar.bz2
fix: proper use of the error reporting protocol
... even if that protocol is unwritten (note to self: write it already) and nobody till now was being a good citizen (chez is becoming one).
Diffstat (limited to 'elisp/geiser-debug.el')
-rw-r--r--elisp/geiser-debug.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index 11fc464..c3968e7 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -273,8 +273,9 @@ buffer.")
(setq img (when (and res (not err) (not debug))
(geiser-debug--insert-res res)))
(when (or err key output)
- (or (geiser-debug--display-error impl module key output)
- (insert "\n" (if key (format "%s\n" key) "") (or output "") "\n")))
+ (let ((msg (or (geiser-eval--error-msg err) output "")))
+ (or (geiser-debug--display-error impl module key msg)
+ (insert "\n" (if key (format "Error: %s\n" key) "") msg "\n"))))
(when after
(goto-char (point-max))
(insert "\nExpression evaluated was:\n\n")