From cbe7c99e711ae1f7f7228d1fa35ff61a44e61f82 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sat, 11 May 2019 23:34:42 +0200
Subject: [PATCH] Revert "build-self: Let HOME pass through the execution
environment."
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
This reverts commit 48d498c2c3984784336b27ba5e261319f3ac6a3a.
It breaks ‘guix pull’.
---
build-aux/build-self.scm | 4 ----
1 file changed, 4 deletions(-)
diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm
index 8eb61623f43..1ddd2233b08 100644
--- a/build-aux/build-self.scm
+++ b/build-aux/build-self.scm
@@ -399,7 +399,6 @@ (define* (build source
(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 @@ (define* (build source
;; $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
--
GitLab