mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-16 03:45:24 -05:00
self: Move Guile early in the module search path.
Until now, Guile modules would first be searched for in MODULE-DIRECTORY, then in each $GUILE_LOAD_PATH entry, and finally in Guile itself. * guix/self.scm (guix-command): Make GUILE the second entry in the %LOAD-PATH and %LOAD-COMPILED-PATH.
This commit is contained in:
parent
fd24754221
commit
459f0d07a1
1 changed files with 14 additions and 9 deletions
|
@ -650,17 +650,22 @@ (define module-directory
|
|||
(program-file "guix-command"
|
||||
#~(begin
|
||||
(set! %load-path
|
||||
(cons (string-append #$module-directory
|
||||
"/share/guile/site/"
|
||||
(effective-version))
|
||||
%load-path))
|
||||
(append (list (string-append #$module-directory
|
||||
"/share/guile/site/"
|
||||
(effective-version))
|
||||
(string-append #$guile "/share/guile/"
|
||||
(effective-version)))
|
||||
%load-path))
|
||||
|
||||
(set! %load-compiled-path
|
||||
(cons (string-append #$module-directory
|
||||
"/lib/guile/"
|
||||
(effective-version)
|
||||
"/site-ccache")
|
||||
%load-compiled-path))
|
||||
(append (list (string-append #$module-directory
|
||||
"/lib/guile/"
|
||||
(effective-version)
|
||||
"/site-ccache")
|
||||
(string-append #$guile "/lib/guile/"
|
||||
(effective-version)
|
||||
"/ccache"))
|
||||
%load-compiled-path))
|
||||
|
||||
;; To maximize the chances that locales are set up right
|
||||
;; out-of-the-box, bundle "common" UTF-8 locales.
|
||||
|
|
Loading…
Reference in a new issue