From 9a3df3a9aa365f64cb9c228dbd856b02afe346ec Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 9 Oct 2022 03:57:46 +0100 Subject: 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). --- elisp/geiser-debug.el | 5 +++-- 1 file 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") -- cgit v1.2.3