all relevant condition locations, not just the last one

1 files changed, 6 insertions, 5 deletions

diff --git a/geiser-chez.el b/geiser-chez.el
index 9491a65..b0a668c 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -186,15 +186,16 @@ Return its local name."
   (when msg
     (save-excursion
       (insert (car msg))
-      (when-let (loc (cdr msg))
+      (insert "\n")
+      (dolist (loc (reverse (cdr msg)))
         (let ((file (cdr (assoc "file" loc)))
               (line (or (cdr (assoc "line" loc)) ""))
               (col (or (cdr (assoc "column" loc)) (cdr (assoc "char" loc))))
               (name (cdr (assoc "name" loc))))
-          (insert "\n\n" file (format ":%s" line))
-          (when col (insert (format ":%s" col)))
-          (when name (insert (format "   (%s)" name))))
-        (insert "\n")))
+          (unless (string-prefix-p geiser-chez-scheme-dir file)
+            (insert "\n" file (format ":%s" line))
+            (when col (insert (format ":%s" col)))
+            (when name (insert (format "   (%s)" name)))))))
     (geiser-edit--buttonize-files)
     t))