From 2081aba648a20ba384a62fecd834424675de1a9f Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 3 Jan 2021 21:30:29 +0100 Subject: Set load-path and load-compiled-path from build environment. --- guile-studio-configure.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index f8040e7..588e512 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -53,14 +53,17 @@ ;; Studio is first started. (defun guile-studio--geiser-guile--parameters (params) (append (list "-C" ,(string-append prefix "/lib/guile/3.0/site-ccache/")) - (list "-C" ,(string-append picture-language "/lib/guile/3.0/site-ccache/")) + ,@(map (lambda (dir) (list 'list "-C" dir)) + (string-tokenize (getenv "GUILE_LOAD_COMPILED_PATH") + (char-set-complement (char-set #\:)))) params (list "-e" "(@ (guile-studio-init) guile-studio-init)"))) (advice-add 'geiser-guile--parameters :filter-return (function guile-studio--geiser-guile--parameters)) (setq geiser-guile-load-path - '(,(string-append picture-language - "/share/guile/site/3.0/"))) + (append ,@(map (lambda (dir) (list 'list "-C" dir)) + (string-tokenize (getenv "GUILE_LOAD_PATH") + (char-set-complement (char-set #\:)))))) (setq geiser-autodoc-identifier-format "%s → %s") (setq geiser-default-implementation 'guile -- cgit v1.2.3