aboutsummaryrefslogtreecommitdiff
path: root/gnu/home/services.scm
diff options
context:
space:
mode:
authorAndrew Tropin <andrew@trop.in>2022-07-26 13:10:08 +0300
committer宋文武 <iyzsong@member.fsf.org>2022-08-02 16:53:29 +0800
commit9355d463290bcc29b0885e18c9b19258934ea0a2 (patch)
treea4851278631b96db24a44926f03eae4e4ef13dfd /gnu/home/services.scm
parentead27209b5e6e474bea93b010a96644dbae487b4 (diff)
downloadguix-9355d463290bcc29b0885e18c9b19258934ea0a2.tar
guix-9355d463290bcc29b0885e18c9b19258934ea0a2.tar.gz
home: Add explicit dependency on env to activation script.
* gnu/home/services.scm (compute-activation-script): Add explicit dependency on env to activation script. Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
Diffstat (limited to 'gnu/home/services.scm')
-rw-r--r--gnu/home/services.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/home/services.scm b/gnu/home/services.scm
index b05ec53e2a..d71aa16a7d 100644
--- a/gnu/home/services.scm
+++ b/gnu/home/services.scm
@@ -20,6 +20,7 @@
(define-module (gnu home services)
#:use-module (gnu services)
#:use-module ((gnu packages package-management) #:select (guix))
+ #:use-module ((gnu packages base) #:select (coreutils))
#:use-module (guix channels)
#:use-module (guix monads)
#:use-module (guix store)
@@ -426,8 +427,9 @@ extended with one gexp.")))
#f))))
(if (file-exists? (he-init-file new-home))
(let* ((port ((@ (ice-9 popen) open-input-pipe)
- (format #f "source ~a && env -0"
- (he-init-file new-home))))
+ (format #f "source ~a && ~a -0"
+ (he-init-file new-home)
+ #$(file-append coreutils "/bin/env"))))
(result ((@ (ice-9 rdelim) read-delimited) "" port))
(vars (map (lambda (x)
(let ((si (string-index x #\=)))