[nongnu] elpa/geiser-racket 0a35180 024/191: Racket: better stack traces using errortrace

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 0a35180d6e58edad69baa73338c86af882aae94b
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Racket: better stack traces using errortrace
---
 elisp/geiser-racket.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index dcff4cc..d876714 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -158,6 +158,14 @@ This function uses `geiser-racket-init-file' if it exists."
     "path:\"?\\([^>\"\n]+\\)\"?>"
     "module: \"\\([^>\"\n]+\\)\""))
 
+(defconst geiser-racket--geiser-file-rx
+  "^/[^:\n\"]*/geiser/[^:\n\"]*:")
+
+(defun geiser-racket--purge-trace ()
+  (save-excursion
+    (while (re-search-forward geiser-racket--geiser-file-rx nil t)
+      (kill-whole-line))))
+
 (defun geiser-racket--find-files (rx)
   (save-excursion
     (while (re-search-forward rx nil t)
@@ -179,6 +187,7 @@ This function uses `geiser-racket-init-file' if it exists."
       (when key
         (let ((end (point)))
         (goto-char p)
+        (geiser-racket--purge-trace)
         (mapc 'geiser-racket--find-files geiser-racket--file-rxs)
         (goto-char end)
         (newline)))))