From 341fba217f5a9490c0e3a077e017adf7bc68acf5 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 30 Oct 2021 21:39:18 +0200 Subject: 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(-) (limited to 'guix') diff --git a/guix/scripts/home/import.scm b/guix/scripts/home/import.scm index a0022458f6..d00739da22 100644 --- a/guix/scripts/home/import.scm +++ b/guix/scripts/home/import.scm @@ -98,9 +98,8 @@ (define configurations 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) -- cgit v1.2.3