home: symlink-manager: Use existing home-directory symbol.

* gnu/home/services/symlink-manager.scm (update-symlinks-script): Use
existing home-directory symbol instead of additional getenv call.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Andrew Tropin 2022-03-11 08:43:04 +03:00 committed by Ludovic Courtès
parent 10d865aa92
commit 9e86e58d6f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -185,7 +185,7 @@ (define (source-file file)
#$%initialize-gettext
(let* ((home (string-append (getenv "HOME") "/.guix-home"))
(let* ((home (string-append home-directory "/.guix-home"))
(pivot (string-append home ".new"))
(new-home (getenv "GUIX_NEW_HOME"))
(old-home (getenv "GUIX_OLD_HOME")))