Revert "build-self: Let HOME pass through the execution environment."

This reverts commit 48d498c2c3.
It breaks ‘guix pull’.
This commit is contained in:
Tobias Geerinckx-Rice 2019-05-11 23:34:42 +02:00
parent 6bf795329a
commit cbe7c99e71
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 0 additions and 4 deletions

View File

@ -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