Revert "build-self: Let HOME pass through the execution environment."
This reverts commit 48d498c2c3
.
It breaks ‘guix pull’.
This commit is contained in:
parent
6bf795329a
commit
cbe7c99e71
|
@ -399,7 +399,6 @@ files."
|
||||||
(mlet %store-monad ((build (build-program source version guile-version
|
(mlet %store-monad ((build (build-program source version guile-version
|
||||||
#:pull-version pull-version))
|
#:pull-version pull-version))
|
||||||
(system (if system (return system) (current-system)))
|
(system (if system (return system) (current-system)))
|
||||||
(home (getenv "HOME"))
|
|
||||||
|
|
||||||
;; Note: Use the deprecated names here because the
|
;; Note: Use the deprecated names here because the
|
||||||
;; caller might be Guix <= 0.16.0.
|
;; caller might be Guix <= 0.16.0.
|
||||||
|
@ -420,9 +419,6 @@ files."
|
||||||
;; $GUILE_LOAD_PATH & co.
|
;; $GUILE_LOAD_PATH & co.
|
||||||
(with-clean-environment
|
(with-clean-environment
|
||||||
(setenv "GUILE_WARN_DEPRECATED" "no") ;be quiet and drive
|
(setenv "GUILE_WARN_DEPRECATED" "no") ;be quiet and drive
|
||||||
(when home
|
|
||||||
;; Inherit HOME so that 'xdg-directory' works.
|
|
||||||
(setenv "HOME" home))
|
|
||||||
(open-pipe* OPEN_READ
|
(open-pipe* OPEN_READ
|
||||||
(derivation->output-path build)
|
(derivation->output-path build)
|
||||||
source system version
|
source system version
|
||||||
|
|
Loading…
Reference in New Issue