diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-06-16 22:36:15 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-06-16 22:36:15 +0200 |
| commit | 230ca2d12926ecda1fe2946e2726079fcbd05ef4 (patch) | |
| tree | 2699fa784e65a30a2aed061e038a7dab5bd3e2ee /elisp/geiser-eval.el | |
| parent | 1dd9eeb3cb80260738a5683e9a41b6f66acd7460 (diff) | |
| download | geiser-guile-230ca2d12926ecda1fe2946e2726079fcbd05ef4.tar.gz geiser-guile-230ca2d12926ecda1fe2946e2726079fcbd05ef4.tar.bz2 | |
Elimination of dead code in stack trace display.
Diffstat (limited to 'elisp/geiser-eval.el')
| -rw-r--r-- | elisp/geiser-eval.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el index c493092..90be67c 100644 --- a/elisp/geiser-eval.el +++ b/elisp/geiser-eval.el @@ -149,7 +149,6 @@ EVAL, COMPILE, LOAD-FILE and COMPILE-FILE should be supported.")) (defsubst geiser-eval--retort-output (ret) (cdr (assoc 'output ret))) (defsubst geiser-eval--retort-error (ret) (cdr (assoc 'error ret))) -(defsubst geiser-eval--retort-stack (ret) (cdr (assoc 'stack ret))) (defsubst geiser-eval--error-key (err) (cdr (assoc 'key err))) (defsubst geiser-eval--error-subr (err) (cdr (assoc 'subr err))) @@ -160,7 +159,7 @@ EVAL, COMPILE, LOAD-FILE and COMPILE-FILE should be supported.")) (let* ((key (geiser-eval--error-key err)) (key-str (if key (format ": %s" key) ":")) (subr (geiser-eval--error-subr err)) - (subr-str (if subr (format " (%s):" subr) ":")) + (subr-str (if subr (format " (%s):" subr) "")) (msg (geiser-eval--error-msg err)) (msg-str (if msg (format "\n %s" msg) "")) (rest (geiser-eval--error-rest err)) |