From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Thu, 19 Sep 2013 00:19:45 +0000 (+0200)
Subject: Fix: not using mapcar for effect
X-Git-Tag: 0.5~10
X-Git-Url: https://repo.or.cz/w/geiser.git/commitdiff_plain/217d2b5948b23a87efa3c617fdf213127e5acc15

Fix: not using mapcar for effect
---

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 994ea6b..9182807 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -323,10 +323,9 @@ it spawn a server thread."
   (let ((geiser-log-verbose-p t))
     (when remote (geiser-guile--set-geiser-load-path))
     (geiser-eval--send/wait ",use (geiser emacs)\n'done")
-    (mapcar (lambda (dir)
-              (let ((dir (expand-file-name dir)))
-                (geiser-eval--send/wait `(:eval (:ge add-to-load-path ,dir)))))
-            geiser-guile-load-path)
+    (dolist (dir geiser-guile-load-path)
+      (let ((dir (expand-file-name dir)))
+        (geiser-eval--send/wait `(:eval (:ge add-to-load-path ,dir)))))
     (geiser-guile-update-warning-level)))