diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2021-01-03 21:30:29 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2021-01-03 21:30:29 +0100 |
| commit | 2081aba648a20ba384a62fecd834424675de1a9f (patch) | |
| tree | 9e49f9f555a66fd222a62779fd8e34954af0562e | |
| parent | bf41b8cabea6936b98be19967d0752acaae3f99c (diff) | |
Set load-path and load-compiled-path from build environment.
| -rw-r--r-- | guile-studio-configure.scm | 9 |
1 files 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 |