summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-09-19 02:19:45 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-09-19 02:19:45 +0200
commit217d2b5948b23a87efa3c617fdf213127e5acc15 (patch)
treead9744b7d24029c00ed3a6178809fa20e38ab1ba
parent4fdfd9d971888bba41bc46919792a28c478573de (diff)
downloadgeiser-chez-217d2b5948b23a87efa3c617fdf213127e5acc15.tar.gz
geiser-chez-217d2b5948b23a87efa3c617fdf213127e5acc15.tar.bz2
Fix: not using mapcar for effect
-rw-r--r--elisp/geiser-guile.el7
1 files changed, 3 insertions, 4 deletions
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)))