[nongnu] elpa/geiser-guile 7d17a3c 236/284: Guile: augmenting %load-compiled-path too

[Philip Kaludercic]

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

    Guile: augmenting %load-compiled-path too
    
    We add the paths in geiser-guile-load-path also to %load-compiled-path,
    and new directories added to the load path via geiser-add-to-load-path
    are added to both %load-path and %load-compiled-path.
    
    Here's hope Ludovic will like all these additions!
---
 elisp/geiser-guile.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index d512185..994ea6b 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -305,7 +305,7 @@ it spawn a server thread."
   (interactive)
   (geiser-connect 'guile))
 
-(defun geiser-guile--set-load-path ()
+(defun geiser-guile--set-geiser-load-path ()
   (let* ((path (expand-file-name "guile/" geiser-scheme-dir))
          (witness "geiser/emacs.scm")
          (code `(begin (if (not (%search-load-path ,witness))
@@ -318,12 +318,15 @@ it spawn a server thread."
        `((,geiser-guile--path-rx geiser-guile--resolve-file-x)
          ("^  +\\([0-9]+\\):\\([0-9]+\\)" nil 1 2)))
   (compilation-setup t)
-  (font-lock-add-keywords nil
-                          `((,geiser-guile--path-rx 1
-                                                    compilation-error-face)))
+  (font-lock-add-keywords nil `((,geiser-guile--path-rx
+                                 1 compilation-error-face)))
   (let ((geiser-log-verbose-p t))
-    (when remote (geiser-guile--set-load-path))
+    (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)
     (geiser-guile-update-warning-level)))