01/04: home: Use absolute path for home in activation script.

[guix-commits]

abcdw pushed a commit to branch master
in repository guix.

commit ffc391500ac7eae1ef100d8d36f6c01f4f606170
Author: Andrew Tropin <andrew@trop.in>
AuthorDate: Fri Jan 14 09:16:32 2022 +0300

    home: Use absolute path for home in activation script.
    
    * gnu/home/services.scm (compute-activation-script): Use absolute path for
    home in activation script.
---
 gnu/home/services.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/home/services.scm b/gnu/home/services.scm
index 75ea54743d..99035686f1 100644
--- a/gnu/home/services.scm
+++ b/gnu/home/services.scm
@@ -420,8 +420,9 @@ extended with one gexp.")))
             (he-path (string-append (getenv "HOME") "/.guix-home"))
             (new-home-env (getenv "GUIX_NEW_HOME"))
             (new-home (or new-home-env
-                          ;; Path of the activation file if called 
interactively
-                          (dirname (car (command-line)))))
+                          ;; Absolute path of the directory of the activation
+                          ;; file if called interactively.
+                          (canonicalize-path (dirname (car (command-line))))))
             (old-home-env (getenv "GUIX_OLD_HOME"))
             (old-home (or old-home-env
                           (if (file-exists? (he-init-file he-path))