diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-06-17 03:13:38 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-06-17 03:13:38 +0200 |
| commit | e582b04710dbbdb84ad9df350e3feb29dcad3c5a (patch) | |
| tree | a1b2e1e00e403b765212481e3af7978d80739b6b /elisp/geiser-debug.el | |
| parent | 7d43df1ae0815171e22637ac0698a95039396acd (diff) | |
| download | geiser-chez-e582b04710dbbdb84ad9df350e3feb29dcad3c5a.tar.gz geiser-chez-e582b04710dbbdb84ad9df350e3feb29dcad3c5a.tar.bz2 | |
Implementation-specific backtrace display.
Diffstat (limited to 'elisp/geiser-debug.el')
| -rw-r--r-- | elisp/geiser-debug.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index f0dc6ec..3bf262c 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -25,6 +25,7 @@ ;;; Code: +(require 'geiser-impl) (require 'geiser-eval) (require 'geiser-popup) (require 'geiser-base) @@ -60,13 +61,17 @@ (defun geiser-debug--display-retort (what ret) (let* ((err (geiser-eval--retort-error ret)) - (output (geiser-eval--retort-output ret))) + (key (geiser-eval--error-key err)) + (output (geiser-eval--retort-output ret)) + (impl geiser-impl--implementation) + (module (geiser-eval--get-module))) (geiser-debug--with-buffer (erase-buffer) (insert what) (newline 2) - (when err (insert (geiser-eval--error-str err) "\n\n")) - (when output (insert output "\n\n")) + (unless (geiser-impl--display-error impl module key output) + (when err (insert (geiser-eval--error-str err) "\n\n")) + (when output (insert output "\n\n"))) (goto-char (point-min))) (when err (geiser-debug--pop-to-buffer)))) |