[nongnu] elpa/geiser-guile 32e7fbd 114/284: Guile: 'bt' when entering the debugger.

[Philip Kaludercic]

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

    Guile: 'bt' when entering the debugger.
---
 elisp/geiser-guile.el | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index b4a27bf..b359dcc 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -107,7 +107,8 @@ This function uses `geiser-guile-init-file' if it exists."
     (if (file-name-absolute-p file) file
       (or (gethash file geiser-guile--file-cache)
           (puthash file
-                   (geiser-eval--send/result `(:eval ((:ge find-file) ,file)))
+                   (geiser-eval--send/result
+                    `(:eval ((:ge find-file) ,file)))
                    geiser-guile--file-cache)))))
 
 (defconst geiser-guile--file-rx
@@ -126,16 +127,18 @@ This function uses `geiser-guile-init-file' if it exists."
               (geiser-edit--make-link beg end file line 0))))))))
 
 (defun geiser-guile--display-error (module key msg)
-  (when key
-    (insert "Error: ")
-    (geiser--insert-with-face (format "%s" key) 'bold)
-    (newline 2))
-  (when msg
-    (let ((p (point)))
-      (insert msg)
-      (goto-char p)
-      (geiser-guile--find-files)))
-  t)
+  (if (eq key 'geiser-debugger)
+      (comint-send-string nil "bt\n")
+    (when key
+      (insert "Error: ")
+      (geiser--insert-with-face (format "%s" key) 'bold)
+      (newline 2))
+    (when msg
+      (let ((p (point)))
+        (insert msg)
+        (goto-char p)
+        (geiser-guile--find-files)))
+    t))
 
 
 ;;; Trying to ascertain whether a buffer is Guile Scheme: