branch master updated: home: Add explicit dependency on env to activation script.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

iyzsong pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 9355d46329 home: Add explicit dependency on env to activation script.
9355d46329 is described below

commit 9355d463290bcc29b0885e18c9b19258934ea0a2
Author: Andrew Tropin <andrew@trop.in>
AuthorDate: Tue Jul 26 13:10:08 2022 +0300

    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>
---
 gnu/home/services.scm | 6 ++++--
 1 file 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 #\=)))