[nongnu] elpa/geiser-guile 0505bde 158/284: REPL: (optionally) forget old errors on new expressions

[Philip Kaludercic]

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

    REPL: (optionally) forget old errors on new expressions
---
 elisp/geiser-guile.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 8d8c4f3..6086dd8 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -18,6 +18,8 @@
 (require 'geiser-edit)
 (require 'geiser)
 
+(require 'compile)
+
 
 ;;; Customization:
 
@@ -125,6 +127,7 @@ This function uses `geiser-guile-init-file' if it exists."
   (when (eq key 'geiser-debugger)
     (let ((bt-cmd (format ",%s\n"
                           (if geiser-guile-debug-show-bt-p "bt" "fr"))))
+      (compilation-forget-errors)
       (goto-char (point-max))
       (comint-send-string nil "((@ (geiser emacs) ge:newline))\n")
       (comint-send-string nil ",error-message\n")