From bfc9c339301ffe6dd15d156894dc27e05f6f081f Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 11 Mar 2019 22:14:30 +0100 Subject: packages: Add the channel .go files to the search path. Until now %LOAD-COMPILED-PATH would wrongfully contain: CHANNEL/share/guile/site/X.Y for each channel, thereby ignoring all the .go files of channels. This fixes it so that %LOAD-COMPILED-PATH instead contains: CHANNEL/lib/guile/X.Y/site-ccache * guix/describe.scm (current-channel-entries): New procedure. (package-path-entries): Change to return the %LOAD-COMPILED-PATH entries as a second value. * gnu/packages.scm (%package-module-path): Expect two values from 'package-path-entries' and augment %LOAD-COMPILED-PATH accordingly. --- gnu/packages.scm | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) (limited to 'gnu/packages.scm') diff --git a/gnu/packages.scm b/gnu/packages.scm index 7b17e70c53..9f211ae23c 100644 --- a/gnu/packages.scm +++ b/gnu/packages.scm @@ -155,23 +155,26 @@ flags." ;; Search path for package modules. Each item must be either a directory ;; name or a pair whose car is a directory and whose cdr is a sub-directory ;; to narrow the search. - (let* ((not-colon (char-set-complement (char-set #\:))) - (environment (string-tokenize (or (getenv "GUIX_PACKAGE_PATH") "") - not-colon)) - (channels (package-path-entries))) + (let*-values (((not-colon) + (char-set-complement (char-set #\:))) + ((environment) + (string-tokenize (or (getenv "GUIX_PACKAGE_PATH") "") + not-colon)) + ((channels-scm channels-go) + (package-path-entries))) ;; Automatically add channels and items from $GUIX_PACKAGE_PATH to Guile's ;; search path. For historical reasons, $GUIX_PACKAGE_PATH goes to the ;; front; channels go to the back so that they don't override Guix' own ;; modules. (set! %load-path - (append environment %load-path channels)) + (append environment %load-path channels-scm)) (set! %load-compiled-path - (append environment %load-compiled-path channels)) + (append environment %load-compiled-path channels-go)) (make-parameter (append environment %default-package-module-path - channels)))) + channels-scm)))) (define %patch-path ;; Define it after '%package-module-path' so that '%load-path' contains user -- cgit v1.2.3