diff options
author | jao <jao@gnu.org> | 2022-10-21 03:36:56 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-10-21 03:36:56 +0100 |
commit | 5bf62132e676e098ab7ab6332fede2ead8328074 (patch) | |
tree | 0e481beb1293cd8c6d9cca58a24124d69dd9301d | |
parent | 5b6d8202dd8b07dc4e83ff1040a8de9f0d2b02cb (diff) | |
download | geiser-5bf62132e676e098ab7ab6332fede2ead8328074.tar.gz geiser-5bf62132e676e098ab7ab6332fede2ead8328074.tar.bz2 |
debug: accept debug msg of any type (e.g., a list with location info)
-rw-r--r-- | elisp/geiser-debug.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index 15f963f..dc60fb6 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -275,7 +275,9 @@ buffer.") (when (or err key output) (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")))) + (insert "\n" + (if key (format "Error: %s\n" key) "") + (format "%s" (or msg "")) "\n")))) (when after (goto-char (point-max)) (insert "\nExpression evaluated was:\n\n") @@ -313,10 +315,9 @@ result in the minibuffer." (code `(,(if compile :comp :eval) (:scm ,wrapped))) (cont (lambda (ret) (let ((res (geiser-eval--retort-result-str ret nil)) - (err (geiser-eval--retort-error ret)) (scstr (geiser-syntax--scheme-str str))) (when and-go (funcall and-go)) - (when (not err) + (unless (geiser-eval--retort-error ret) (save-excursion (goto-char (/ (+ end start) 2)) (geiser-autodoc--clean-cache)) |