09/15: home: import: Compare procedures with 'eq?'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 341fba217f5a9490c0e3a077e017adf7bc68acf5
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Oct 30 21:39:18 2021 +0200

    home: import: Compare procedures with 'eq?'.
    
    'procedure-name' is a debugging aid and cannot be reliably used to
    check for procedure equality.
    
    * guix/scripts/home/import.scm (configurations+modules): Remove use of
    'procedure-name'.
---
 guix/scripts/home/import.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/guix/scripts/home/import.scm b/guix/scripts/home/import.scm
index a002245..d00739d 100644
--- a/guix/scripts/home/import.scm
+++ b/guix/scripts/home/import.scm
@@ -98,9 +98,8 @@ service declaration."
                                          destination-directory "/" file))
                              proc)))))
                  %files+configurations-alist)
-     (lambda (x y)
-       (equal? (procedure-name x) (procedure-name y)))))
-  
+     eq?))
+
   (map (lambda (proc) (proc destination-directory)) configurations))
 
 ;; Based on `manifest->code' from (guix profiles)