[nongnu] elpa/geiser-guile 216897a 133/284: Guile: displaying the debugger preamble.

[Philip Kaludercic]

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

    Guile: displaying the debugger preamble.
---
 elisp/geiser-guile.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index b76228e..da488bc 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -128,7 +128,14 @@ This function uses `geiser-guile-init-file' if it exists."
 
 (defun geiser-guile--display-error (module key msg)
   (if (eq key 'geiser-debugger)
-      (comint-send-string nil "bt\n")
+      (progn
+        (comint-send-string nil "0\n")
+        (accept-process-output nil 0.1)
+        (when msg
+          (goto-char (point-max))
+          (comint-previous-prompt 1)
+          (insert "\n" msg)
+          (goto-char (point-max))))
     (when key
       (insert "Error: ")
       (geiser--insert-with-face (format "%s" key) 'bold)
@@ -137,8 +144,8 @@ This function uses `geiser-guile-init-file' if it exists."
       (let ((p (point)))
         (insert msg)
         (goto-char p)
-        (geiser-guile--find-files)))
-    t))
+        (geiser-guile--find-files))))
+  t)
 
 
 ;;; Trying to ascertain whether a buffer is Guile Scheme: