3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

home: Use absolute path for home in activation script.

* gnu/home/services.scm (compute-activation-script): Use absolute path for
home in activation script.
This commit is contained in:
Andrew Tropin 2022-01-14 09:16:32 +03:00
parent 65cabb010e
commit ffc391500a
No known key found for this signature in database
GPG key ID: 2208D20958C1DEB0

View file

@ -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))