02/06: home-services: symlink-manager: Properly handle 1st generation case.

[guix-commits]

wigust pushed a commit to branch wip-guix-home
in repository guix.

commit e593e08e096eafd5b2c8d07e2a0c3831c18e141b
Author: Andrew Tropin <andrew@trop.in>
AuthorDate: Mon Aug 30 12:23:48 2021 +0300

    home-services: symlink-manager: Properly handle 1st generation case.
    
    Signed-off-by: Oleg Pykhalov <go.wigust@gmail.com>
---
 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 dc409d2..11f5d50 100644
--- a/gnu/home-services/symlink-manager.scm
+++ b/gnu/home-services/symlink-manager.scm
@@ -102,7 +102,7 @@ appear only after all nested items already listed."
                                          (number->string (current-time))
                                          "-guix-home-legacy-configs-backup"))
 
-              (old-tree (if (file-exists? old-home)
+              (old-tree (if old-home
                           ((simplify-file-tree "")
                            (file-system-tree
                             (string-append old-home "/files/.")))