01/09: home: symlink-manager: Use existing home-directory symbol.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 9e86e58d6f77297551c96b6a8aae0a4efadd8eac
Author: Andrew Tropin <andrew@trop.in>
AuthorDate: Fri Mar 11 08:43:04 2022 +0300

    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>
---
 gnu/home/services/symlink-manager.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/home/services/symlink-manager.scm 
b/gnu/home/services/symlink-manager.scm
index 767b1bdc01..bce5c85b56 100644
--- a/gnu/home/services/symlink-manager.scm
+++ b/gnu/home/services/symlink-manager.scm
@@ -185,7 +185,7 @@
 
          #$%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")))