diff options
author | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-05-11 23:34:42 +0200 |
---|---|---|
committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-05-11 23:35:32 +0200 |
commit | cbe7c99e711ae1f7f7228d1fa35ff61a44e61f82 (patch) | |
tree | 20745da31cc6617a385357e0db6621d7451fdbe9 /build-aux | |
parent | 6bf795329a1da58e38f749f4af7a7694bfb64f97 (diff) | |
download | gnu-guix-cbe7c99e711ae1f7f7228d1fa35ff61a44e61f82.tar gnu-guix-cbe7c99e711ae1f7f7228d1fa35ff61a44e61f82.tar.gz |
Revert "build-self: Let HOME pass through the execution environment."
This reverts commit 48d498c2c3984784336b27ba5e261319f3ac6a3a.
It breaks ‘guix pull’.
Diffstat (limited to 'build-aux')
-rw-r--r-- | build-aux/build-self.scm | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm index 8eb61623f4..1ddd2233b0 100644 --- a/build-aux/build-self.scm +++ b/build-aux/build-self.scm @@ -399,7 +399,6 @@ files." (mlet %store-monad ((build (build-program source version guile-version #:pull-version pull-version)) (system (if system (return system) (current-system))) - (home (getenv "HOME")) ;; Note: Use the deprecated names here because the ;; caller might be Guix <= 0.16.0. @@ -420,9 +419,6 @@ files." ;; $GUILE_LOAD_PATH & co. (with-clean-environment (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 (derivation->output-path build) source system version |