[nongnu] elpa/geiser-guile 430e127 152/284: Guile: display backtrace upon entering debugger.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 430e12756c7065595092f4738ccb86725f0a1086
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Guile: display backtrace upon entering debugger.
    
    Inserting the banner is disabled for now: it confuses comint badly for
    reasons i don't understand yet.
---
 elisp/geiser-guile.el | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index a88cf54..a8a7a7c 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -142,13 +142,8 @@ This function uses `geiser-guile-init-file' if it exists."
 (defun geiser-guile--display-error (module key msg)
   (if (eq key 'geiser-debugger)
       (progn
-        (comint-send-string nil ",locals\n")
-        (accept-process-output nil 0.01)
-        (when msg
-          (goto-char (point-max))
-          (comint-previous-prompt 1)
-          (insert "\n" msg)
-          (goto-char (point-max))))
+        (goto-char (point-max))
+        (comint-send-string nil ",bt\n"))
     (when key
       (insert "Error: ")
       (geiser--insert-with-face (format "%s" key) 'bold)