Revert "build-self: Let HOME pass through the execution environment."
authorTobias Geerinckx-Rice <me@tobias.gr>
Sat, 11 May 2019 21:34:42 +0000 (23:34 +0200)
committerTobias Geerinckx-Rice <me@tobias.gr>
Sat, 11 May 2019 21:35:32 +0000 (23:35 +0200)
This reverts commit 48d498c2c3984784336b27ba5e261319f3ac6a3a.
It breaks ‘guix pull’.

build-aux/build-self.scm

index 8eb6162..1ddd223 100644 (file)
@@ -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